



oN fHrAa sit 
aye, LOMPUTER =, 
Enrxusiasts [M15] 


INSIDE INFO No. 27 October 1986 









AND MUCH MUCH MORE .-- 
PRICE $3.00 





REGISTERED BY AUSTRALIA POST PUBLICATION No. NHB 6944 


SUPERIG) =PAOGULTS 


NEW PRODUCT RANGE NOW COMPLETED AND AVAILABLE FROM STOCK 


Ch BERT] is still the popular one. Replaces the operating system 
with the rev "B", no more translator disks for XL 
Owners. Gives a full and super powerful disassembler ALWAYS resident. 

Includes a 4 colour screendump which will even do some redefined 
Character set graphics or any mixture of modes (Unique!!!) Has loads of 
built in features such as binary loader (without DOS) ete. etc. The 
graphics dump can be customised for almost any non-Epson printer, in 

which case we require a list of printer commands and $20.- extra. 


GUPERRAIT gives you a BIG computer. 256K of RAM for your XL (both 
: 600 and 800), 304K in your 800 and a whopping 320K for 
your XE. SuperDOS allows you to use this extra memory from almost = any 


program, while your Supermon can access it with any of its functions. 
600XL and SOOXL no soldering required, on the 800 only 1 connection. 


Ch IPE ATIAK Sives you TRUE double density on your 1050, as well as a 

fourfold increase in the read/write speed (with 
Superdos). Menu driven for convenience, with a multitude of extra 
functions and even an auxilliary file with e.g. Superbin, the super 
high speed binary loader which leaves you 707 sectors for programs. 
Please note that SuperDOS no longer comes free with the other products, 
as it is now widely available from user groups etc. If you can’t get 
hold of version 2.A, include an extra $5.- with your order. 


~GUPERSGG will allow your faithful 800 to run all those special XL 
é programs without having to buy an XL. If used with 
Superram, can also emulate the XE, running such programs as Paper Clip, 
Atari writer plus etc. Contains TWO operating systems, both with 


Supermon and 16K of RAM. Can be configured for Superface. Gives you 5 
computers in one. Can drive Superram as Axlon or XL compatible!! 


° Gh IGERL Ft] will give you a reliable indication of what your 1050 is 

4 ie doing, indicating density, read/write and write protect 
Status, with a 3 way switch to give normal, ALWAYS protected (green 
LED) and NEVER protected (red) status. Perfect companion for Supermax. 


ChPERFRCE Allows your computer to drive the printer through the 

joystick port. NOT a software driven ring-in, but will 
work with ANY program, including graphics programs such as Print shop 
etc. Will work almost any Centronics printer. It needs Printmon 
(Supermon) to be present, but look at the price!! Compared to a 
standard interface you get Supermon AND Superface for even less!! 
Superproducts may not be flash, but we give you a quality, reliable 
product at an affordable price. We brought you the first Supermon in 
1983 for the same $89.- that we now ask for a vastly improved version. 
And we don’t blather about the dropping dollar either!! And our backup 
service is unpsaralelled, ask the few Super Product owners who had a 
problem or query!! 





SUPERMON 400/800/600XL/800XL %89.- SUPERMON for XE %59.- 
SUPERMAX $89.- SUPERLED $30.- SUPERFACE #49.- SUPERSO0OO $159.- 
SUPERRAM 800 $159. - SOOXL S95. - GOOXL $120. - XE $159.- 


SUPER PRODUCTS. P.O BOX 507 BEENLEIGH QLD. 4207 PHI(07) 8011218 


EDITORIAL ~ 


I thought the title page would get you to read the editorial, 
tricky eh. Anyway Atari has announced two more STs the 2080 and the 
4160 with 2 meg and 4 meg respectively. Whether these turn out like 
famed 1450 XLD only time will tell. 


While I have your attention there are a few important messages: 


MEMBERSHIP 
Due to the increase in printing cost, postage etc, the committee 
has decided that; 
1. The joining fee is to be abolished. 
2. The annual subscription rate is to rise from $15.00 p.a. to 
$20.00 p.a. 
3. Back issues of INSIDE INFO will increase from $3.00 per issue 
to $4.00 per issue. 
4. These changes will commence from the lst January 1987. 


So if you are quick you can renew your membership at the old 
price of $15.00. 


THE WINNERS 
Every three issues of INSIDE INFO the committee votes on the 
best article/program received. Well we voted and the winners were. 


lst. KEN HALL for AMERICAS CUP issue 24. Ken wins $50.00 

The two runner ups receive 4 disks of their choice from the software 
exchange. They were; 

GLYNN GOUGH for VBI'S and DLI'S tutorial issue 24. 

BRUCE FAIRHALL for TAXFILE issue 25 


Thanks for all those other people who have submitted articles. 
Remember every time an article/program is received and is published 
you are entitled to one disk free of charge from the software 
exchange and are in the running for one of the three prizes. 


AGM and CHRISTMAS PARTY 

Don't forget that the AGM is on November 10. All positions are 
declared vacant so if you wish to stand for one of the positions 
don't forget to come along. The Christmas party will be held on 
December the 8th, there will be food, drink and a good time to be had 
by all so come along. 


That is it see you next meeting or next mag. 


Craig Armsworth 
ww 


MEETBEAT 


by Ian Murray 
September Meeting 





The September meeting turned out to be very successful, despite 
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the non-appearance of some of the expected exhibits. It is good to 
see though, that there is enough interest in the club, by its 
members, that there were sufficant additional items to be displayed. 


The meeting began with the ‘News And Bits' section, witha 
couple of items, which will be of interest to all members. Firstly, 
the news that the South Australian Education Department have chosen 
the Atari 1040 ST as the computer to be used in South Australian 
Primary Schools. It was chosen ahead of both the Mackintosh and 
Amiga. Secondly was the announcement of a new Computer Magazine 
called GEM which sees its first issue to be issued in September. The 
first issue features the Atari ST range of computers. 


Bob Vickery gave the meeting a very informative lecture and 
display of Forth. It is good to see that Forth is not a dead 
language. Greg See-Kee provided the highlight of the meeting, in the 
eyes of the ST owners at least, by displaying the Oki-mate 20 colour 
printer. Greg suplied some very spectacular colour prints on both 
paper and overhead transparencies. Philip Hayne completed the ST 
highlights by showing Winter Games. This highly successful version of 
the older 8-bit Summer Games. As we have come to expect from our 
talented editor, much mirth was caused by his attempts at the aerial 
stunts. Thanks for the laughs Craig. (its all part of the job. Ed.) 


The evening was not, however, totally dedicated to the ST. The 
Computereyes Video Digitizer proved very popular with all in 
attendance. Results were very encouraging despite the lack of 
suitable lighting. It is hoped that a disk of digitised photographs 
will soon be available through the software exchange. I also hope to 
be able to arrange to show the Maplin and Hippo digitizers ata 
future meeting. Jerry Lawrence supplied an interesting look at 
Alternate Reality for the meeting. This adventure game has some good 
graphics and sound, and looks well worth having a look at. 


I look forward to seeing as many of you as_ possible at 


forthcoming meetings. By the way if you have anything that you would 
like to demonstrate at a club meeting, please contact me, so that we 


can arrange a time to do so. 
WH 


THEN TRY THis 


Some handy TAPE & DISK hints by Lance Munday 


Do you have a cassette tape that your not sure where the program 
starts? THEN TRY THIS!!! 


POKE 54018,52 
This will turn the cassette motor on and you can listen for the sound 
of the program and note the tape counter when you hear it. 


Would you like a simple utility to verify that a tape file is 
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recorded properly? THEN TRY THIS!!! 


CLOSE #1:O0PEN #1,4,0,"C:"sFOR Z=1 TO 400:GET #1,Z:NEXT Z 

After you've CSAVE or LIST or PRINT to the tape, rewind and press 
play. Enter utility and it will read the file, if all is well it will 
give an ERROR 136 END OF FILE message, if it doesn't then save the 
file again. 


Some handy DISK hints 


Have you ever had trouble with two programs with the same name on the 
same disk? THEN TRY THIS!!! 


POKE 3111,76:POKE 3112,234:POKE 3113,18 CRETURN] 

DOS CRETURN] 

E CRETURN] Cto rename a program) 

Now only the first program will be renamed. Turn computer off and 
then on again and all will be as normal 


Would you like to easily disable the BREAK key? THEN TRY THIS!!! 


Use these two POKES in your program 
POKE 566,143:POKE 567,231 
Unfortunatly this only works with the OS B ROMs 


Have you ever wanted to load a binary file while in BASIC. THEN TRY 
THISI!! 


OPEN #1,4,0, "Dz: PROGRAM. OBJ" 

X=USR (5576) : 

Although this is an illegal jump into the operating system I'm sure 
you wont mind. 


Would you like the ability to get a disk directory from basic? THEN 
TRY THIS!!! 


DOS CRETURNI 

C CRETURN] (copy a file) 

E:,D:DIR CRETURNI 

CLR: T. 40000: CL. #1:0. #1,6,0, "Dex. *":s DIMAS (30) :F.Z=1T064: 1. #13 AS: 7AS2N. 
Z:CLR:CL.#1:END (CRETURN] 

CCTRLI 3 

When in BASIC type in ENTER "D:DIR" and the directory will be 


KW HK 
ACE TYPO CHECKER 


by Craig Armsworth 





Finally here it is the ACE TYPO CHECKER, for all of you that 
complained because you couldn't tupe... err type properly. The Typo 
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Checker is virtually the same as Typo II from Antic but with a few 
modifications. 


Due to the limited space in the magazine the typo codes could 
not be printed next to each line and I felt it unsatisfactory to have 
them printed at the end of the program with the line numbers, so I 
had to develope a program that reads in the listing and then puts the 
code in the front of each line in inverse characters so you don't 
type them in. As Larry says REMs are to be avoided like the plague, 
ACE TYPO CHECKER does not give typo codes for REM statements, which 
also saves on space, who wants to know if you typed in a REM 
statement correctly? Also ACE TYPO CHECKER will save the program to 
disk or tape. 


HOW TO USE THE ACE TYPO CHECKER 


Type in the ACE TYPO CHECKER then save a copy to disk or tape. 
It would be better if it was listed to disk or tape as programs, like 
forklift in this issue, there is line that must be typed in first. 
Type those lines in then (ENTER] TYPO CHECKER into memory and then 
type [GOTO 32000] 

The screen will ask you to type in a program line. Abbreviations 
may be used. Press [RETURN] and TYPO CHECKER will give you a two 
letter code. If this code is not the same as the one at the beginning 
of the program line in the listing press [RETURN] and edit the line. 

To look at any line previously typed type [SHIFT-MINUS] (_) then 
the line number and press [RETURN]. eg. _10 [RETURN] will list line 
10. 

To delete a line just type the line number and press [RETURN]. 

To save your work type [SHIFT-EIGHT] (@) and then D:FILENAME.EXT 
or cC: and your work will be listed to disk or tape without Typo 
Checker. eg. @D1:PROGRAM.LST will list the program to drive one under 
PROGRAM.LST. Type [NEW] [RETURN] and [ENTER] the program back in 
memory and save back to disk/tape. This gets rid of the variables 
that TYPO CHECKER uses. 


REMEMBER DO NOT TYPE IN THE TYPO CODES 








32000 REM SA;LINES!IF LINES="" THEN POSITION 2,4 LINE ";B;" ELIMINATED": 60TO 32168 
32001 REM tt A.C.E. (N.5.K.) # LIST B:G0TO 32068 X 3215@ GOTO 32176 

32802 REM ft TYPO CHECKER # () 32070 IF LINES(,1)="_" THEN B=VAL( HQ 32160 FOR X=1 TO 255 STEP 4:SO0UND @ 
32003 REM by Craig Armsworth & LINES(2,LENCLINES))):POSITION 2,4:LIST ,X,8,16:NEXT X:SOUND 8,6,0,0:G0T0 3205 
32804 REM ff Published Atari Computer 6:G0TO 32060 8 

32005 REM & Enthusiasts (W.5.4.)  #& Gf) 32075 IF LIWES(1,1)="@" THEN LINES= (J 32170 AS=STRS(B) ITF LINES CLEN(AS) 42 
32006 REM tt October 1986 ft LIWES(2, LENCLINES)) :LIST LINES,1,31999 ,LEN(AS)+4)—"REM" THEN 32858 

32007 REN :G0TO 32858 MN 32198 FOR Dri TO LENCLINES) :C-C41:0 
(My 32818 CLR :DIM LINES (120) ,05(6):CLO Ef] 32080 POSITION 2,10:PRINT "CONT" = NS=ANS#(CHASC (LINES (D,DI23:WEXT D 

SE $LICLOSE 82:0PEN 91,4,0,"E:": OPEN & [ig 32098 B-VAL(LINES) :POSITION 1,3:7 " [ZB 32268 CODE=INT (ANS/676) :CODE=ANS- CC 
2,5,0,"E:" " ODE*676) 

78 32820 OL=PEEK (560) +PEEK (5619256 (08 32108 POKE 842,13:5T0P WE) 32218 HCODE=INT (CODE/26) : LCODE=CODE 
(1M 32030 POKE DL+6,@:POKE DL4+24,0:POKE [i] 32116 POKE 642,17 ~ (CHCODEN26) 4654128 

DL+26,8:POKE 710,144 32126 PRINT CHRS(125);" i) 32220 HCODE=HCODE+654128:POSITION 4 
GE] 32640 PRINT CHRS(125);" (REMC MES: POSITION 2,14:LI ,18:PRINT “CODE = ";CHRSCHCODE) ;CHRS CL 
NASW.) TYPO CHECKER 5T B CODE) 

[El] 32056 TRAP 32040:POSITION 2,3:PRINT (fd 32138 C=O: ANS=C G0) 32236 POSITION 2,19:PRINT "If CODE 
"Please type the program line." (i 3214@ POSITION 7,15: INPUT #2;LINES: does not match press (RETURN? and edit 


32668 POSITION 1,4:PRINT " “: INPUT IF LINES=""" THEN POSITION 2,18:PRINT " line above.";:G0TO 32058 
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SOFTWARE EXCHANGE 


By Philip Hayne 





Greetings, this month we have four new disks, bringing the total 
number of disks in the SOFTWARE EXCHANGE to FORTY! 


Unless otherwise noted all disks cost $6.00 including P/P. A new 
batch of blank disks have been purchased from NASUA and will be sold 
at $22.00 per 10 disks with $3.00 P/P if applicable. 

O.K. here are the new titles: 


M.A.C.E. Fractals 


This disk contains a set of programs to generate multicolored 
fractal images in GR 7+ and saves them to disk for a slide show 
(included). The flip side of the disk contains a new Slide Fader 
program to display the 18 included finished fractal pictures. 


A.C.E.'C' 


This is the second of our Language disks (the other is FORTH) 
and is a 8-Bit version of the popular language of 'C'. It has been 
enhanced with full library routines for Graphics & PM and sound etc. 
It is similar to ACTION! in many ways but it's transportability is 
one of it's main features. 'C' is the most common language on the ST 
computers and now the 8-Biters can ride the wave of it's popularity. 
Requires a Text Editor or Wordprocessor to enter in your source code. 


INSIDE INFO Vol 9 


This disk covers all the programs from I.I. issues #25-#26. 
Programs include a, Payroll System, TAX filer, a LOGO screen dumper, 
a Times Table Teacher, a Parachute game, several very good GR demos, 
and 10 Statistical programs, and a disk menu to tie the lot together. 


SUPER DOS V4.2 ($4.00 includes doco) 


This is the latest SUPERDOS from Super Products, Qld. It is a 
very extensive DOS with that works in single,enhanced & double 
density, ramdisk support with auto load of files to ram, very memory 
efficent, can handle lower case and inverse filenames, color-coded 
screen boarder for read/write, verify toggle. Also inclued a Xtended 
DUP with functions to restore files, file tracer, XL/XE key repeat 
rate, DOS 3 converter, and SUPERBIN and SBAS to make binary and basic 
boot menu disks. 


SUPER DOS is made available to us by Will Visser and Paul 
Nicholls and is distributed free, excluding media and photocoping 
costs 


Well that's it for this month have fun and see you next issue. 


www 


program review... st 


DBCALC 
from ROBTEK distributed in OZ by "BIT SHOP" P.O. BOX 28 Earlwood 2206 
phone 579-1549 


This is an interesting program, from the point of being a data 
base and a versatile analytical program for the Atari ST computers. 
The use of drop down menues and processing speed make it quite a 
remarkable program, getting the best of many worlds. The market range 
that it is seemingly aiming at is both the home and small buisness 
application. 


The term "Data-base" is to some a bit abstract, so I will 
explain. A data base is like an empty warehouse where much 
information can be stored, and later retrieved. In this warehouse we 
can store all types of files, folders, filing cabinets full with 
draws and files. It is up to the user to fill the vast amount of 
stroage with the necessary information and data. Then, with a smart 
program, one can access the files and extract necessary information, 
giving the user the bottom line, useful statistics, positive recall 
and help. If the data base is smart, a simple macro can pluck out 
relevant statistics and do relatively complicated analysis and 
forecasting. 


So what use is a data base to me at home? Well, I have an 
income, expenses and it is nice to have a predictive programme that 
will tell me to pull my horns in and save some money. All my disk 
files and library can be entered for fast re-call. It can also be of 
use in determining the fuel economy of the family car, and giving an 
indication that something is about to go wrong with it. The kitchen 
and housekeeping can all be recorded and make the shopping a breeze. 
Plus those wonderful recipies and gourmet delights which tickle the 
taste buds :- a delicious application. Suppose one has a business, 
selling something like software and the government suddenly applied a 
20% Sale Tax, the data base can re-configure all the prices, showing 
such info as break-or-bust, new prices, taxation, and print out 
fantastic reports. 


There are many data base programs in the market place and range 
in price from $30 to over $600, but when you want to break down a 
formula, carry out totalizations, or simple analysis, you are stuck 
like a rat ina trap, if it is a simple data base. DBCALC is in the 
middle price range and offers functions which some of the more 
expensive programs give, which makes it a more viable aquisition in 
the home or small buisness environment. 


DBCALC has a few down-fallings which I find a bit tedious. 
Firstly, the disk boots up in low resolution on the ST. So, when the 
program is to be run, it must be in medium resolution or better. This 
just means the desk top should be saved, but DBCALC is heavily 
protected so one must be hesitant about saving anything at all to 
that disk. In the instructions you are told repeatedly NOT TO WRITE 
to the master disk. 


Protection: DBCALC uses a form of protection which will allow 
all but the master program to be copied. Even if you do copy it 
sector by sector or attempt to copy the entire disk, attempts to run 
that program will fail with an obvious error message telling one 
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about the copyright laws, (I like it). The work files are unprotected 
and should be copied to a work disk until one really knows how to 
drive DBCALC. 


I would prefer a means of having back-up facilities, especially 


when the programme costs around $150 Australian !!! Such prices have 
been shown to encourage pirates since users don’t want to be 
continually using their "only" master disk, just to boot in the 


program. More manufacturers should begin to realize that their 
reputation is based on the service they supply to the user, not 
necessarily the programs sold. Users would jump at offers like, a 
special $5.00 backup work disk to registered owners so that if 
something went wrong, the user won't be caught in a lurch, and then 
for each disk after that, $20 with or without evidence that the work 
disk or master was destroyed. No matter what one claims, magnetic 
media is not perfect, and the master can be destroyed by water, food, 
dust, the disk drive, the operator, grease, magnetics, sunlight, 
heat, smoke, electrostatics and a multitude of other misfortunes. It 
is a lot of money to be tied up ina volitile substance. The 
importers of DBCALC are considering work copies, so that may be a 
light at the end of the tunnel. 


I do not support piracy, but I would like to see more 
Manufacturers of software change their approach to their method of 
raising revenue, and give the user value for money and a good long 
term service. 


Such protection will be broken in time by dedicated pirates. 
Industries thrive on it happily. My argument is that the manual 
itself is what one really pays for, not the program. Software houses 
must consider the buyer and the purchasing inertia caused by the 
recently imposed Federal price rise. Software houses need to write 
programs with levels of difficulty which really requires the manual; 
Example ERROR CODE 16-->see page 22. Without the manual a pirate 
could not fly the program fully. More revenue could be made by the 
software house selling the manual without the program, and perhaps 
selling the source code listing in many instances. It is all great 
marketing. It also means that the software can be cheap, less sales 
tax, less buyer resistance, more sales, better profits. Manuals can 
be made photocopy proof today. 


DBCALC requires the manual, at first, but once one learns to fly 
it, the manual is of little use. This is purely because the 24 page 
manual is written in clear uncomplicated English and is brilliantly 
concise, easy to use, and easy to master. 


A minor gripe is the registration form for the guarantee. It is 
the last page of the manual, and I totally detest the idea of cutting 
out this form (or for that matter any form or any part of a reference 
book) as it will weaken the manual in time and detract from its 
usefulness. Surely a simple return mail card would have been better. 
In this country, Warranty is granted by proof of purchase, so there 
is no need to destroy the manual. 


Unlike the more expensive professional data-bases where the 
disk is accessed for each file and altered accordingly, DBCALC pulls 
in the entire file and maintains it in memory. This is my third 
gripe. This is like the batch run data entry system in the early data 
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bases, where all that day's entries are updated after the users go 
home. These store the work file is in memory. Hours of input can be 
lost with one simple mistake or malfunction. So one must be forever 
making back-ups to ensure the integrity of the data-base. Personally, 
I prefer the virtual on-line data base where the files are updated 
immediately the return key is pressed and one can use the available 
memory for other wonderful real-time activities. But on-line data 
bases are slow in sorting and seem to take forever in doing a sort. 


DATA SORTS are a fundamental pre-requisite of a good data-base. 
Simply, there are two basic types of sort, such as the telephone book 
(alphabetical left to right) or like the lottery results (lowest to 
highest). What-ever the method used, the sort must be accurate and 
fast. The sort in DBCALC is so fast and unbelievable to behold, I 
thought that there could have been a bit of trickery to it, such as 
using page flipping, so I checked out all of the disk files and could 
only concur that the program does a lightning speed bubble sort. 


Sorting is by character, left to right unless you tell the 
computer that the field being sorted is a field of numbers or values. 
Suppose I needed to sort out a table of values from lowest to 
highest. I£ I just called on a sort and not on values, this is what 
would happen. 

Consider these numbers: 


-~9, -1000, -12, -60, 12, 9, -11, 1000, -1 
the sort would appear as: 
-9, -60, -1, -1000, -11, -12, 1000, 12, 9 


This is not lowest to highest, rather left to right, an 
alphabet sort of a numeric field. If the sort routine is told to sort 
by values, well that is a different story, resulting in:- 


-1000, -60, -12, -11, -9, -1, 9, 12, 1000 


SELECTIVITY. This is being able to narrow down a sort to one file, by 
looking for various criterion. A direct approach could be to specify 
just one name or part number, and have that exclusive record pulled 
onto the screen. When you have a few hundred entries, this becomes 
difficult, as one must remember exactly the format and typing case 
(UPPER and lower) of the original entry. Far better is to select 
several rough criterion through what many call "wild cards". I like 
the use of "WILDCARDS" especially when one can't remember the correct 
spelling or the address. Only the better data bases use wild cards, 
so all those entries starting with a certain initials, or group of 
letters or numbers’ can be extracted. Say for instance you were not 
sure of the spelling, but the lady concerned lives at NO 10 Downning 
Street, or close to that spelling, and the name could be Fatcher or 
Phacher or Thatcher or ....... One can search for all addresses with 
the number 10, and use elimination to find the right one. Better 
still is the ability to define first and last letters in one field 
and selectively narrow the view by other fields, age greater than 50, 
Address #10. DBCALC has both forms of wild card selective operation 
through FOUR seperate wild card selections to narrow down the 
selection to one of a few, or one of one. 


But the best is yet to come. I bet you have received at one time 
a computer form letter in the mail from readers disgust or similar. 
Want to do it to you friends? You must have seen the type of letter; 


"JACK SMITH of No 10 HURLSTONE ROAD has’ been selected by the 
computer, and as you realize JACK, both you and your wife BETTY are 
eligible for the grand prize. Won't this be great at No.10 Hu.... 
Just buy a swimming pool from us and all the residents of HURLSTONE 
ROAD will ..." 


Yes it does this tooooo0, by merging a data file to a standard 
text file, so all the relatives can get the same personal letter or 
cheque at christmas time. Same old stuff, but each one uniquely 
addressed and personalized. 


Calculations and analysis can be completed by creating models, 
just like programming in basic, creating what is a MACRO. It is 
absolute simplicity to define a field and then extrapolate with both 
straight forward mathematics to fairly complex trig functions, such 
as sin,cos, a-tan; and even if you that inclined, hyperbolic 
functions, and even PI. 


Such models can be used for all manner of things’ from 
Spread-sheets (like Compute!'s Speed-calc) to small buisness 
functions and even running the family car, determining fuel 
consumption/economy over the last 12 months and then predict what you 
will need to budget for in the next 12 months. etc. 


Perhaps missing is a graph-it function, where the net results 
can be displayed in a graphics window, with X , Y and Z co-ordinates. 
Not to worry, DBCALC work files are pure text, and so it is possible 
to carry out the analysis in DBCALC, save the results, and then call 
up a seperate graph and pie chart program to do all the pretty 
things, to see at a glance the bottom line and the shape of things to 
come. 


Depending on the application you have and the level of 
mathematical accuracy required, DBCALC could be a viable contender 
and should be looked at as a moderately priced data base at around a 
price of $149.95. It is well written and has the ability to handle 
some very cumbersome applications which it does well. It is not as 
good as "VIP professional", but that is the top of the range. 
Immediate competition is Zoomracks, H&D Base, DB Man, and VIP Lite. 


In my test drive of the program, I attempted many 
"“user-silly-mistakes" and it stayed up. Top marks there. 


The bottom lines: 


Out of 10, I would put it in the range from 8.0 to 9.0, where I 
deducted points for the initial boot up procedures; the batch 
updating; the lack of graphical representations; and the warranty 
registration card. I gave marks for the Sort routine; the 
Selectivity; The easy of mastering; the drop down menu organization, 
the protection. 


Apart from that it serves my applications better than expected. 
I believe it is worth it for my intended uses, (astronomy, home 
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finances, the car!). 


Still, at the $150 mark, I would have expected a large robust 
manual, with the present 24 pages being chapter 1 “HOW TO FLY DBCALC 
QUICKLY", a user's reference. 


Larry O'Keeffe 


Vice President 
and Sysop 
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by Stan Ockers 
Reprinted from Eugene ACE Educational Disk #10 


Forklift is an educational game by Stan Ockers that will be one 
of the many programs appearing on our own educational disks to be 
released soon. 


The object of the game is move words from the left of the screen 
to the right using a forklift. The problem is that the words must 
rhyme and be the only ones left on the right hand side pallet. Move 
the joystick up and down to change the forklift's height and left or 
right to move under a word. Push up to pick up, or down to drop. Keep 
doing this until all the words that rhyme are on the right. 
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fh) 1@ DIM PMS (1): REM 3He€ ENTER THIS LI 





WE FIRST %0t 

12 REM SEPHTeeeeseeeeseeeeseseseeeneistiiietitanititns 
12 REN # FORKLIFT # 
13 REN 8 by Stan Ockers t 
14 REM # Published by Atari Computert 
15 REM Enthusiasts (N.5.H.) # 
16 REM # OCTOBER 1986 8 
17 REM 8 Reprinted from Eugene Ace t 


REM # Educational Disk #16 8 


REM UETHeESeEeeESeReTatESeeeeeteeeeseetasasetesesececstietiiet 


L& 
19 
PY) 10@ GRAPHICS 18:POSITION 7,5:7 86;" 
Foal iG": POSITION 5,8:7 #6;"INITIALIZ 
ING": POSITION 3,18 

116 7? H6;"takes 23 seconds": GOSUB 4 
060:POKE 559,8:G0SUB 3006 

198 REM 

199 REM %88F STARTING POSITIONS Ht 
206 GO5SUB 206@: TOPL=C4: YL=TOPLC8:X 
L=CO:5IZL=14°G05UB 928 

FPO 216 RPSCCLY=" ":RPSC9BY=" "ERPS (C2) 
~../$ 1 YR=16 :HR=33:SIZR=CEGOSUB 936: YR= 
8O:G05UB 93@:POKE 712,66 

228 TOPR=18 : TOPC=18 : SIZR-C@: SIZC-C8 
+ FRK=96: LDED=C@: AREA=€2: DIR=RT: K=C8:05 
ET=58: BOSET=C6 : ROSET=74: WOSET=89 

230 CKFLG=CO:FRKCS=FRKLS: BODYCS-BOD 
YLS:RACKCS=RACKLS:GO5UB 960 

298 REM 

299 REM 33H MAIN LOOP #2 

Joe STK-STICK (CA) 

382 SOUND €1,C8,C8,C@ 

318 ON AREA GOSUB 466, 450,506,526,5 
36,558,600 

fi] 396 GOTO 308 

398 REM 

339 REM #3 AREA H1 - LEFT EDGE #3t# 
460 IF STK=HP THEN GOSUB 1856 

416 IF (STK=DM) THEN GOSUB 1166 

~~ 420 IF STK=RT THEM AREA-C2:50UND C2 
»~6,12,16:DIR=RT 

Ty 430 RETURN 

448 REM 

449 REM #3 AREA 82 LEFT PILE ¥it* 

450 IF DIR=LT THEN GOSHB 1208 

460 IF DIR=RT THEN GOSUB 1256 

476 RETURN 

498 REM 

499 REM 386 AREA HS CENTER *Ht 

566 IF STK=UP THEN GOSUB i366 

562 IF STK=DN THEN GOSHB 1356 

$04 IF STK=LT THEN AREA-€2:DIR-LT 
5@6 IF STK=RT THEN AREA-C4:DIR-RT 
[I] 568 RETURN 
518 REN 

519 REM 38HE AREA 
526 IF DIR=LT 
522 IF DIR=RT 
524 RETURN 
529 REN 44% AREA 





4 CENTER 44 
THEN GOSUB 1406 
THEN GOSUB 1456 


#5 RIGHT CENTER Ht 


53@ IF STK-UP THEN GOSHB 13006 
532 IF STK-DN THEN GOSUB 1356 

534 IF STK=LT THEN AREA-C4:DIR-LT 
536 IF STK=RT THEN AREA-C6: DIR-RT 
538 RETURN 

548 REM 

549 REM #8 AREA H6 RIGHT PILE Ht 
558 IF SIZR-C6 AND CKFLG-CO THEN 60 
SUB 3586 

555 IF DIR-LT THEN GOSUB 15586 

[3 560 IF DIR=RT THEN GOSUB 1566 

CE) 570 RETURK 

598 REM 

599 REM ¥4# AREA 87 - RIGHT EDGE st 
fi) 606 IF STK=UP THEN GOSUB 1656 

f]q 610 IF STK-DW THEN GOSUB 1760 

fl) 62@ IF STK=LT THEN AREA-C6:DIR=LT 
fr 638 RETURN 

898 REM 

899 REM 3% MOVE FORKS & WORDS 21H 
Ed 980 PMS CFRK+523)-FRKCS:POKE 532508, 
HCAFO5ET 


962 PMS(8O3)-RACKCS:POKE 53251, KRC4 


+ROSET:POKE 53249, KRCA+WOSET 

965 A-HSRCAADR, X+BOSET, 128, BADR, 35, 
c7) 

fi 916 IF LDED=CO THEN RETURN 

915 A=USRCAADR, KX, ¥,CADR, SIZCHC7, C7) 
‘RETURN 

918 REM 

919 REM #6 REPLACE LEFT PILE ##t 

Mk 928 IF SIZL=C@ THEN RETURN 

GD) 925 A=USRCAADR, XL, YL, LPADR, SIZL¥C7, 
C7) :RETURN 

928 REM 

929 REM 33 REPLACE RIGHT PILE #3 

930 IF SIZR-CO THEN RETURN 

Mii 948 A=USRCAADR, KR, YR, RPADR, SIZRAC7, 
€7) :RETURN 

998 REN 

999 REM 386 LOAD FORK LEFT PILE 2 
1060 TEMPS=LPS:IF CFRK/C8<{TOPLtC2) 
THEN RETURN 

1805 IF SIZL-C® THEN RETURN 

1618 LDED=C1:C$ (C8I=LPS: SIZC=FAK/CB 
~TOPL#+C2 : SIZL-18-FRK/C8; TOPC-TOPL-Ci 
1620 P=SIZCRC7-C7:CS(PI=BS:IF SIZ) 
C@ THEN LPS-TEMPS (CFRK/C8-TOPL)¥C7tCL) 
1636 TOPL-FRK/C8:YL-TOPLHCE:POKE 71 
2,70:PITCH-5@:G05UB 1808:RETURN 

1648 REM 

1849 REM 386 MOVE UP LEFT SIDE *## 
1050 SOUND C1,126,12,C8:1F LDED-C@ 
THEN GOSUB 1808 

Hi 1860 IF CFRK/C8-51ZC)<=C@8 THEN RETU 
RN 

1676 Y=TOPCHCS:FOR J-€1 TO 16: Y¥-Y-C 
LIFRK=FRK-CL:GOSUB 980:G05UB 920:1F FR 
K>126 THEN GOSUB 1908 

1086 NEXT J: TOPC-TOPC-C2 
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G7 1090 RETURN 

1698 REM 

1699 REM ¥%% MOVE DOWN LEFT SIDE 33% 

BE) 1106 SOUND C1,130,12,C8:IF LDED=ce 
THEN RETURN 

fi] 1110 IF CFRK/CO=TOPL) THEN GOSUB 11 
5@: RETURN 

SH 1126 Y=TOPCHCS:FOR J=Ci TO 16: ¥=¥4C 

LIFRK=FRK4C1:G05UB 9@0:GOSUB 920:1F FR 

K>128 THEN GOSUB 1900 

Wd 1138 WERT J:TOPC=TOPC+C2: RETURN 

1148 REM 

1149 REM 3886 UNLOAD LEFT SIDE x3H€ 

fy 115@ IF LDED=C@ THEN RETURN 

BM) 116@ TEMPS=c$c(ca):IF FRK/C8{18 THEN 
TEMPS (SIZCHC7-13)=LPS 

PE) 1176 LPS=TEMP$:S51ZL=-SIZL4+51ZC-C2:10 

PL=TOPC+C1: YL=TOPL¥CS:LDED=C@:POKE 712 
,66:PITCH=156:G05UB 1880: RETURN 

1198 REM 

1199 REM #%* MOVE LEFT AREA #2 3886 

4} 126 SOUND C2, 90,17,C6:1F FRK/C8>TO 

PL AND LDED=C1 THEN DIR=RT:GOSUB 1858: 

RETURN 

fal 1205 IF FRK)144 THEN DIR=RT:GOSUB 1 

856: RETURN 

BE] 1218 IF H=C@ THEW AREA=C1:S5OUND C2, 

C8,C@,CO: RETURN 

43 1220 H=X-C1i:GOSUB 960:IF FRK=144 TH 

EN GOSUB 1988 

(i 123@ IF LDED=Ci THEN GOSUB 920 

1240 RETURN 

1248 REM 

1249 REM ##% MOVE RIGHT AREA 82 #30 

fi 1258 SOUND €2,90,12,C6:IF X=C7 THEN 
AREA=C3:SOUND C2,C@,CO,CO: RETURN 

ER) 1260 X=X+C1:605U8 900 

(1276 IF LDED=C1 THEN GOSUB 926:IF F 

RK=i44 THEN GOSUB 1908 

1286 RETURN 

1298 REM 

1299 REM #3 GO UP CENTER %* 

fC] 1360 SOUND €1,120,12,C8:IF CFRK/C8- 
51ZC)(=C®8 AND LDED=C1 THEN RETURN 

Ge £365 IF FRK(=32 THEN RETURN 

[2] 1318 FOR J=Ci TO 16: Y=¥-CL:FRK=FRK- 
CAi:GOSUB 9@@:MERT J: TOPC=TOPC-C2:RETUR 
N 

1348 REM 386 GO DOWN CENTER #1 

fi] 1350 SOUND C1,130,12,C8:1F CFRK=168 
) THEN RETURN 

1360 FOR J=Ci TO 16:Y=Y4C1: FRK=FRK+ 
C1:GOSUB 96@:NERT J: TOPC=TOPC+C2:RETUR 
N 

1398 REN 

1399 REM 3008 GO LEFT CENTER 34% 

Bhi 1490 SOUND €2,90,12,C6:IF R=C6 THEN 
AREA=C3:SOUND €2,C6,C8,CO: RETURN 

(i 1403 IF K-23 THEN BODYCS=BLWKS: GOSH 
B 960 


Coy” 


1464 IF X=21 THEN KOSET=~40 

1485 IF H=17 THEN OSET=58:BOSET-C6: 
FRKCS=FRKLS$: RACKCS=RACKLS : ROSET=-66 
1406 IF X=-14 THEN ROSET-74 

1467 IF X=16 THEN BODYCS=BODYLS$: NOS 
ET=89 

1418 H=H-CLiGOSUB 988: RETURN 

1448 REN 

1449 REM Ht GO RIGHT CENTER 3t# 

WJ 145@ SOUND C2,90,12,C6:IF >25 THEN 
AREA=C5:50UND €2,€6,C6,€6: RETURN 

1453 IF X=10 THEN BODYCS-BLNKS:GOSU 
B 988 

OG £454 IF X=11 THEN WOSET=-44:ROSET=6 
4 

fai 1455 IF X=15 THEN OSET=49:BOSET=-6: 
FRKCS=FRKRS : RACKCS-RACKRS 

1456 IF X=17 THEN ROSET=42 

Ga 1457 IF X=26 THEN BODYCS-BODYRS: HOS 
ET=26 

1466 K=K4+C1:G05UB 96@:RETURN 

1498 REM 

1499 REM 44% MOVE RIGHT AREA 86 te 
1508 SOUND C2,96,12,C6:IF FRK/C&)T0 
PR AND LDED=Ci THEN DIR=LT:GOSUB 1858: 
RETURN 

(Ar 1505 IF FRK>144 THEN DIR=LT:RETURN 
1516 IF K=33 THEN AREA-C7:SOUND C2, 
C8,€@,C@: RETURN 

1520 X=K+tC1:G05UB 980:1F FRK=144 TH 
EN GOSUB 1980 

153@ IF LDED-C1 THEN GOSUB 936 

Gi] 1540 RETURN 

1548 REM 

1549 REM %#* MOVE LEFT AREA 86 x8 
1550 SOUND €2,90,12,C6:IF K<{26 THEN 
AREA=C5: CKFLG-CO: SOUND €2,C6,C8,CO:RE 
TURN 

1560 H=X-C1L:GO5UB 960:IF FRK-144 TH 
EN GOSUB 1908 

1578 IF LDED-C1 THEN GOSUB 930 

1586 RETURN 

1599 REM 386 LOAD WORDS RIGHT PILE *#* 
1608 TEMPSIRPS:IF CFRK/C8<TOPRtC2) 
THEN RETURN 

1605 IF SIZR-C@ THEN RETURN 

Gi] 1618 LDED=C1:C$(C8)=RPS: 5IZC-FRK/C8 
-TOPRtCZ: SIZR=18-FRK/C8: TOPC-TOPR-C1 
CE 1626 P=SIZC#C7-C7:C$(P-BS:IF SIZR> 
C@ THEN RPS=TEMPS (CFRK/C8-TOPR) ¥C7401) 

1630 TOPR=FRK/C&:YR-TOPRECS:POKE 71 
Z,7@:PITCH-56:G05UB 1808:RETURN 

1648 REM 

1649 REM #8 MOVE UP RIGHT SIDE 3 

1658 SOUND €1,120,12,C8:IF LDED-ce 
THEN GOSUB 1600 

1660 IF (FRK/€8-51ZC)(=C® THEN RETU 
RN 

Gi] 167@ Y=TOPCHC8:FOR J=Ci TO 16:Y=Y-C 
L:FRK=FRK-C1:G05U6 98@;G05UB 930:IF FR 


K)128 THEN GOSUB 1986 

GE) 168@ NEXT J: TOPC-TOPC-C2 

1696 RETURN 

1638 REM 

1699 REM #38¢ MOVE DOWN RIGHT SIDE #8 

OJ 1766 SOUND €1,130,12,C8:IF LDED-C6 
THEN RETURN 

1716 IF CFRK/C&-TOPR) THEN GOSUB 17 
5@:RETURN 

1726 Y=TOPCHCS:FOR J=C1 TO 16:Y-¥+C 
LiFRK=FRK+C1:G05UB 960:G0SUB 930:IF FR 
K)126 THEN GOSUB 1966 

(0) 173@ NEXT J: TOPC-TOPC+C2Z: RETURN 
1748 REM 

1749 REM 33% UNLOAD RIGHT SIDE %3Ht 

fi] 1758 IF LDED=C@ THEM RETURN 

1760 TEMP$=CS(C8):IF FRK/C8<{i8 THEN 
TEMPS CSI ZC#C7-139=RPS 

CE) 1778 RPS-TEMPS: SIZR=SIZR+5IZC-C2: 70 
PR=TOPC+C1: YR=TOPRECS:LDED-CO:POKE 712 
»66:PITCH=150:G05UB 1886: RETURN 

1798 REM 

1799 REM WHE DING HX 

1800 FOR J-12 TO C1 STEP -C1:S50UND 
C6,PITCH,16,J:NEXT J: SOUND C0,€8,C0,C8 
TRETURN 

1848 REM 

1849 REM #6 CRASH HE 

Ci} £858 FOR J-15 TO Ci STEP -€1: SOUND 
C1, 208,C8,J: NEXT J:SOUND C1,C6,C8,CO:R 
ETURN 

1898 REM 

1899 REM #3 PRINT THE DOCKS st# 

1966 A-U5RCAADR, C8, 145,DADR, 12,06): 
A=USRCAADR, 34,145, DADR, 12, C6) :RETURN 
1998 REM 

1999 REM #36 SET HP WORDS HE 

AE 2000 LPS=" __ ss PR "": LP$(98)=" 
"SLPSCISJ=LPS:RESTORE 2166:PICK=INTCR 
ND (C8) #09) 41 

GIS 2616 FOR J=C1 TO PICK:READ MICHS:NE 
XT J:CNT=C@:FOR J-C3 TO 87 STEP 14 

2020 LINE=INT CRND (CO) ¥C9) 4+C1 

2621 IF RND(C8)<{6.33 THEN LINE=PICK 

EY) 2622 RESTORE 2100+18*LIWE :K=INTCRND 
(C@)¥C5)+C1:FOR L=C1 TO K:READ WOS:NEX 
TL 

2624 FOR Q=C3 TO J STEP 14:IF WOS=L 
P$(Q,Q0+C2) THEN 2628 

2026 NEXT Q 

2630 IF LINE=PICK THEN CHT-CNTtC1i:1 
F CNT)CZ THEN 2026 

2640 IF J=3i AND CNT-C® THEN 2626 

2642 IF J=59 AND CNT-C1 THEN 2828 

Mi 2644 IF J=87 AND CNT=C2 THEN 2620 

MT) 2068 LPSCJ,J+C2)=WOS:NEXT J 

2676 7 CHRS(125) :POKE 656,C@:POKE 6 
§7,22:7 "get 3 _";MTCHS;" words": POKE 


559,62 


2698 RETURN 


2188 

p 

2110 

2128 

Z136 

Cl) 2146 

2158 

hi 2168 

2178 

ff) 2188 DATA 

2198 DATA 

2998 REM 

2599 REM Ht INITIALIZE *t 

GL) 3000 CO=8:C1=1:02=2:C3=3:C4=4:05=5: 

C6=6:07=7:C8=8:C9=9 

JO18 DIM LPS(98) ,RPSC98) C$ C112), TE 

MPS (98) WS (C7), BS (07), FS{C9) 

3028 LPADR=ADRILPS) : RPADR=ADR (RPS) : 

CADR=ADR (C$) : TADR=ADR (TEMPS) : FADR-=ADRC 

FS) :cSCoy=" "CS Cha23=" "20$¢2)=05" “= 

cs 

FI JOO UP=14:DN=13:LT=11:RT=C7 

3050 GRAPHICS C8:POKE 559,C@:PM=PEE 

K(106)-46:POKE 54279,PM:POKE 53256,CL: 

POKE 766,166:POKE 53277,C3 

3068 VUTP=PEEK (134) +PEEK (1359%256:5 

TARP=ADR (PMS) : OF F5-PM#25641024-STARP:H 

I=INT COFF5/256) : LO[OFF5-HI#256 

3878 POKE VUTP+C2,LO:POKE VUTPTCI,H 

I:POKE VUTP+C5,C4:POKE VUTP+C6,CO:POKE 
UUTP+C7,C4 

fil 3075 PMS (C1) =CHRS (C8) : PMS (1024) -CHR 

$00) : PMS (C2) =PMS 

(i) 3088 DIM FRKLS(20) , FRKRS (20) , FRKCSC 

28):FOR J=C2 TO 16:FRKLSCJ)-CHRS (CL) OF 

RKRS (5) -CHRS (128): NEXT J 

3098 FOR J=i7 TO 19: FRKLS CI} =CHRS (CZ 

55) :FRKRS CJ) =CHRS (255) SWERT J: FRKLS (20 

=CHRS (C8) : FRERS (20) <CHRS (C8) 

fi} 3160 POKE 718,32:POKE 623,C1:DI.. ..f 

CHS{C2) , WOS (C3) 

3110 DIM BODYLS$ (35) , BLNKS (35) : BODYL 

$=" i nl ied Ea W 

i 

MM] 3126 DIM BODYRS (35), BODYCS (35) :BODY 

Ro=" J ii hd im VW 
"' BADR=ADR{BODYCS) 

Gd 3130 BLNKS(C13=" "3 BLNKSC352=" "EBL 

MKS{C2)=BLNKS:FOR J=34 TO 194: PMSCJ, J) 

=CHRS (255) :NEXT J 

3140 POKE (704),42:POKE 53248,116:P 

OKE 53256,C3 

GP} 7150 DIM RACKLS (166) , RACKRS (166) , RA 

CKCS C166) : RACKLS (CL) -CHRS (192) :RACKLS € 

C2)-CHRS (64) :RACKLS (i58)=" " 

GY) 3168 RACKLS (C3) =RACKLS: RACKRS (C1) -C 

HRS (C3) :RACKRS (62) =CHRS (C2) : RACKRS (150 

=" "SRACKRS (C3) =RACKRS 

3176 RESTORE 3186:FOR J=156 TO 168: 

READ A:RACKLS (J, J)-CHRS(A}:NEKT J 


DATA AN, ED,AT,OT,UN,AD,AG,ID,A 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CAN, PAN, RAN, FAN, MAW 
BED, FEO, LED, RED, WED 
BAT, CAT, 5AT, FAT, RAT 
HOT, POT, NOT, LOT, ROT 
BUN, GUN, FUN, RUN, SUN 
MAD, 5AD,LAD, BAD, HAD 
BAG, 5AG, TAG, RAG, WAG 
BID, LID, HIB, DID, RID 
CAP, LAP, 5AP, NAP, ZAP 


3172 RESTORE 3182:FOR J-15@ TO 168: 556 61,287,133, 207,165, 286,24, 161,203,133, 


READ A:RACKRS CJ, JI=CHRS CA INEXT J 3528 RETURN 206, 141,133,6,165,207,105,0,133 

3188 DATA 8,28,62,54,99,99,99,54,62 [f] 3550 FOR K=C@ TO C3:POKE 656,08: POK 4840 DATA 267,141,134,6,104,133, 213 

28,8 E 657,22:7 " great job!!! “:PITCH= ,104,133,212,104,104,141,129,6,286,129 

3182 DATA 16,56,124,168,198,196,198 180-CO¥K:GO5SUB 1868 »6,104,104,141,131,6 

,166,124,56,16 3568 POKE 656,C@:POKE 657,22:7 " 4058 DATA 169,6,141,132,6,141,138,6 

i] 3190 POKE 767,C4 "!FOR L=C@ TO 10:NEXT L ,169,0,141,128,6,172,138,6,177,212,16, 

3280 RESTORE J2i6:FOR J=444 TO 456: : NEXT K 5, 266,128,6,41,127,281,32 

READ A:PMS(CJ,J)=CHRS CAD NEXT J:POKE 76 3580 POKE 559,C@:BODYCS-BLNKS:A-USR 4066 DATA 176,5,24,105,64,16,7,261, 

3,04 CAADR, H+BOSET, 128, BADR, 35,07) :PMSCFRK+ 96,176,3,56,233,32,133,204,169,8,133,2 

{I 3216 DATA 8,28,62,62,62,28,8 523, FRK+542) =PMS CFRK+443, FRK+S62) 85,133, 208,6, 204,38 

(IE 3226 DIM DOCKS (12) :DOCKS-"| | | 3556 POP :GOTO 206 fd 4078 DATA 205,6,204,38,205,6, 204,36 

[1] fs DADR=ADR (DOCKS) :GOSUB 1908 3998 REM 205,165,205, 24,109, 244,2,133, 205,164, 

3236 A=PEEK (560) +256%PEEK (561) 3999 REM 33H GR. & ROUTINE *t% 208,177, 204,77,128,6,172 

3240 IF PEEK(A) (66 THEN A=ATCL:G0T 4000 DIM AS(257): RESTORE 4016:FOR J [Ml] 4075 DATA 132,6,145, 266 

0 3246 =1 TO 257: READ A:A5 (J, J3=CHRS CA) ENEXT 4688 DATA 236,288,165, 208, 261,8,248 

Ml] 3256 POKE 4,7@:POKE A+C3,CO:POKE At J:AADR=ADR(AS) RETURN 215,165,206, 24,105, 40,133,286,144,227, 

C4,C6:POKE Atts,C6 4016 DATA 216,104,164,104,133,263,1 236,287,208,223 

Gi] 3390 RETURN 64,104,133, 204,169,6,133,205,6,204,38, [i] 4698 DATA 144,160,238,132,6, 236,138 

7498 REN 265 ,6,204,38,205,6,204,38 ,6,206,129,6,48,43,173,132,6,205,131,6 
39 REM 36 CHECK FOR DONE 4626 DATA 205,165, 2704,24,101,88,133 ,268,22,169,0,141,132,6,24,173,133,6 

[CH 3500 CNT=C@:CKFLG=C1:PITCH-40 , 206,165, 205,101,89,133,207,6,204,38,2 Gf) 4168 DATA 105,64, 141,133,6,173,134, 

MM 3510 IF RPSCC4,C5)=MTCHS AND RPSC18 = 6,204,36,205,165, 204,24 6,105,1,141,134,6,173,133,6,133, 206,17 


,LII=MTCHS AND RPS(3Z,I3I=MTCHS THEN 3 [RA] 4036 DATA 101,206,133, 266,165, 205, 1 3,134,6,133, 267, 24,144,206, 96 


ANSWERS: POPULAR GAMES AUG&SG 


- DALLAS CONAN P. 

‘ IA Q@4$ki. 5. 
x REALITY u TT. Z 
é ES Es. $ 
‘ N MST. ¢ 
; T DECATHLON. 
. MUDPIES R RP. 

.U E c oO ; 

-N BRUCELEE N 

SS Vv N ‘ 

-V GREMLINS A : 

-E O Cc ZORK ; 

-ROP E OY M : 

. SUNDOG R A ; 

-E IP R R ; 

. EE Oo VM. 

. SPYVSSPY ULTIMAIV. 

: E A NG . 

: W Mt 

: KENNEDYAPPROACH. 
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THTORIAL NO. 


by Elaine Hopper 


Well at last I did succeed 
a program now complete indeed 
Much of time and trust to luck 
maybe I'11l make me a buck 


Then as through the air I sail 
daughter comes in with the mail 
Inside Info here at last 
I'll send them my effort fast 


Then as reading on I go 
one tale here is of woe 
Tells of memory there to save 
paths of efficiency then to pave 


Then all my work to make it plain 

so others then can work the game 
Sacrifice of fastest place 

I feel that I am in disgrace 


Then my choice of how to get 

Speed, Difficulty, and Help yet 
IF and THEN are problem two 

at least in Larry O'Keeffe's view 


And problem number three he says 
is the GOTO I use these days 

But what to use and not come back 
maybe learning is what I lack 


Forget the dreadful INPUT now 

brings TRAPS, more GOTO's and wow 
Worst of all are constant prints 

has he seen and he's giving hints 


On variables I've laid my base 

as few as possible in his place 
Glad I am that I'm in mine 

for word games they are divine 


So with old favourites out the door 
I sure hope he gives us more 


How to input words and phrases 
this idea - it quite amazes 


www 
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ICAICIENT PROGRAMING 


PART I I 
by Robert (Larry) Lanigan-O'Keeffe 


The thoughts expressed in part 1 of this article are common to 
many programmers who look back after mastering other languages’ like 
Pascal/Action/C/ etc, to review or examine a BASIC program. Often 
they see utter dis-organization, linear thinking, bad program design, 
and inefficient memory usage, despite the fact that the program has 
amazing concepts, fascinating tricks and has taken someone many hours 
to perfect. 


The concepts which one picks up in the higher languages is to 
procedurize the structure, using less numbers but more variables, 
very few "IF" commands, or delay "FOR LOOPS", (loops which often stop 
all motion while active). One immediately sees tremendous use of 
"GOSUB" commands (virtually everything is a sub-routine). And why use 
an "IF" when conditional mathematics do the job faster and with more 
control. 


So what are "conditional mathematics"? 

The typical conditional statement occurs in the dreaded "IF" 
command "IF (X=Y¥) THEN GOSUB" or "IF (X>Y¥) THEN GOSUB". Depending 
on how the condition in the brackets is viewed, whether true or false 
points the program in a different direction responding according to 
your logical needs. This is caused by the fact that a "true" 
conditions return a value of "1" and so here, the GOSUB is used: the 
"false" condition returns the value "0", so the GOSUB would not be 
called into play. In mathematics the same applies, as illustrated by 
the following:- 


1. X=X+1*(Y>10) if Y>10 then the statement is true, 
and equals the value of X plus "1" 
if Y<=10 then it is false and X remains 
unchanged. 
SOLUTIONS 
if Y=11, X=7, then the new value of X is 8. 
if Y=9, X=7, X is unchanged. 


2. X=X*(Y>10) 


SOLUTIONS 
X=X or X=0 
3. X=(X>10)+2*(X<10) 
SOLUTIONS 
X=1 or X=2 or X=X if X=10 
4. X=(NOT X) 
SOLUTIONS 


IF X=1 then X=0 
IF X=0 then X=1 


There are many such conditional operations in mathematics and if 
used in moderation can greatly increase the the operating speed of 
the program, using the memory more efficiently for more elaborate 
programs. Why bog a program down with IFs and Horrid Code? 


The logic of conditional mathematics lends itself to that 
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infrequently used command "ON (condition) GOSUB". It is here that the 
programming becomes very effective. The beauty of the "ON-GOSUB" is 
that many Gosubs can be activated from the one command, and in the 


one line. For instance, lets assume that you have created a menu, 
called from disk or memory. It is alphabetical, with options "A" to 
"3", Each option must run a different application, so we make each 


application a sub-routine. In the computer's architecture, there is 
an algorithm which identifies each character or letter. Letters A to 
J are represented as values. The Standard ASCII code gives these as 
65 to 75. So the the best method of determining the value is to use 
the "GET" command from the keyboard. This can be trimmed by simple 
mathematical manipulation to give a response in that range or request 
another input. Now using an "ON-GOSUB" the program will divert to the 
respective GOSUB, dependent on the value of the key. 


10 CLOSE #1:OPEN #1,4,0,"K:" 

20 PRINT “ MENU a.. b.. c.. dew @on fe. gee Hew Lan jee " 
30 7 "“A-->J ?"::sGET #1,A:POKE 20,0:POKE 19,0 

25 ON CA<65) +(A>75) GOTO 30 

40 ON (A-64) GOSUB 50, 60, 70, 80, 390, 100, 110, 120, 130, 
i4O :GOTO 20 

50 7"50O clocks ="; PEEKC19), PEEK(C20):RETURN 

60 ?"60 clocks ="; PEEKC19), PEEK(20):RETURN 

7O ?"70) clocks ="3 PEEK(19), PEEK(20):RETURN 

et cetera et cetera 
Do the same for lines 80 to 140 in steps of ten. 

One Short way or typing RETURN is "RET." OR USE THE SCREEN 
EDITOR TO re-enter the same line, with different numbers. List the 
program to make sure it is all there, and RUN it. Stop the program 
and determine free memory using 


? FRECO) 


Now delete lines 35 and 40. Check free memory. You can write the 
program now using IF statements. You have from lines 31 to 49 to fit 
in all your IF commands. Again check free memory. I believe you will 
agree that the "IF" logic consumes heaps of memory, and then the 
reaction time of the system itself differs greatly from _ the 
input-reaction of the first IF to the last IF (ten commands later 
on). 


There is not much missing from the above example, but other 
things may cloud the issue. Basically if A has a value of 67, the 
letter "Cc", then A-64 gives a value of 3, the gosub now put into 
action is that which occurs at line 70 as the third routine is 
activated, which then prints the number 70, then the internal clock 
times to reach that gosub. The two GOTO commands are needed to 
request a new number in the range in line 30, and then in line 40 to 
return the user to the original menu after returning from the gosub. 


My favourite pet hate is the rem-ark statement... a waste of 
good memory, but there are ways of writing the program with rems and 
not corrupting the active area, the lowest memory locations. The best 
way is to define the user lines, say, from 0 to 999. then all the 
remarks, line for line starting at line 1000... To list the programme 
in ATARI basic showing both lines together is a simple "FOR LOOP":- 


900 X=1.01:FOR I=0 TO 999: LIST FeLIST 141000: X=X*X: X=SORCX): NEXT I 
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The reading delay is caused by floating point mathematics. AGAIN 
all motion stops if this is used. Still, for every line we can read 
the rem.. Save the total program with the file name VERILAZ, and it 
will be 75 sectors. List the program to disk or tape, and you can 
edit out the rems in one hit by simply:- 


LIST "D:LAZRGUNR",0,899 
or LIST "C:",0,899 


The listed file is inclusive lines 0 to 899. Now NEW the 
program, then ENTER it back in. All the variables will be clean, 
rubbish stripped out. Now Re-save the program to your game disk or 
tape as a Load and run file and will be about 45 sectors. Only if you 
have the need to read the remarks, will it be necessary to load in 
your fully saved version. REMS only assist in following the program 
and are slow downers in any program, whether at the beginning or end. 
They are horrid to find in the program when tagged onto the ends of 
lines, and serve to slow it down. 


Enough on basics, lets get down to the nitty gritty. Some years 
ago, the reputable magazine "COMPUTE!" published a fast action game 
called "Laser Gunner" (NOV.1982). Many of us novices typed it in and 
almost gave up computing. No it wasn't that bad, but it wasn't that 
good. It was the typical BASIC game where all action stopped while 
missiles were blasting your protective wall to pieces. Sure it does 
not take much to £ix it up by a few little changes here and there, 
but that is not the point. Some time ago, I contemplated how to 
modify the game, to write a total program without one "IF", and 
perhaps no "GOTO" statements. 


This program worked by an amazing trick using a string (lets 
call it PM$) and by telling ANTIC the starting address any string 
adjustments give vertical movements to both player and alien 
independently. You can't do that in basic they said, but it is 
possible.To do the bullets and missiles, a fifth player is used, 
where each whole byte in the word which makes that player can be 
driven independently across the screen at the same time. Lines 11 and 
23 of the listing show the bullet and missile can exist at the same 
string location !!! Line 11 gives the Bullet a value of "1" and line 
"23" a value of "8" , For both to co-exist at the same location, the 
value must be "1+8" or "9". 


I have left a few little bugs in the program for your logical 
analysis. The first is to allow both the bullet and the missile to 
concurrently share this location, or to clear out only one. I have 
told you the answer, it is for you to play with. 


The second bug is when the wall vapourizes, while a bullet is 
being fired. As the wall vanishes, the Alien may explode several 
times and wipe out your score. To fix this bug, you must trace out 
the program steps. This is not difficult to do. 


The hard part is that I use variables for almost everything, and 


in this program there are about 90 of them. But that can make the 
program easier to follow if you list lines 701 to 710 or refer to the 


listing. 
cay 











I will point out, that this is not the final version, rather in 
following articles/ letters to the editor etc., we will explore 
methods to make the program run faster and faster, to get to that 
point where it is addictive, to change the sounds and to give the 
missiles more impact. I am not talking of a total re-write, just a 
few quick modifications to this listing, an append here, a delete 
there. For this is an educational version of the game, the purpose is 
to better our collective programming skills. I will state that this 
program is just the skeleton of a "BORING" bang-bang shoot-em up 
game, however it is a jumping off point to get into fast application 
programming, Buisness programming, and higher languages. We must all 
consider this as a challenge. 


Still this version has many degrees of motion; rotation of the 
alien in-game only; extra-lives; bonuses; high scores; points 
deducted for bad plays; and points depending on difficulty of the 
shot. It does not have any "pause", nor does it have music, and it is 
cumbersome since it is almost pure structured programming. There are 
faster routines and these we will explore in future articles. 


BEFORE YOU TYPE THE PROGRAM "LASER GUNNER VERSION II" TAKE NOTE 
POKE 82,0 Before doing anything!!! 

ON (cond) GOSUB cannot be shortened 

ON (cond) GOS. will error!!! 

N. is OK to use for NEXT 

POS. will also expand to be POSITION 

RET. is great for RETURN 

So. is SOUND 


If you haven't done it, POKE 82,0 RIGHT NOW!! 
This will adjust your left margin to position 0 and give an 
extra line length. Some of the lines are huge and will need every bit 


of stealth to cram them in.... 


MORE EXCITEMENT NEXT EDITION... Happy bug hunting... 





i REM KE 26,0:POKE 15,6 98 7 "98 CLOCKS="; PEEK (19), PEEK (28) 
2 REM EFFICENT PROGRAMMING 8 35 ON (A{65)4+(A>75) GOTO 36 i RETURN 

+ REM # LISTING 1. ON GOSUB % (1 40 ON (A-64) GOSUB 58,60,76,80,90,1 108 ? "188 CLOCKS="; PEEK (19), PEEK (2 
4 REM 8 by Larry O'Keeffe % «@6,116,128,1368,146:60T0 26 @) :RETURN 

5 REM & Published by Atari Computer # [HI] 5@ 7? "58 CLOCK5="; PEEK (19), PEEK (2@) 110 7 "110 CLOCKS="; PEEK (19) , PEEK (2 
6 REM & Enthusiasts (W.5.4.) & ‘RETURN 6} :RETURN 

7 REN @ OCTOBER 1986 8 68 7 "60 CLOCKS="; PEEK (19) , PEEK (20) 120 7? "128 CLOCKS="; PEEK (19) , PEEK (2 
8 REN sRETURN @) :RETURN 

16 CLOSE 81:0PEN sericea fl) 78 7 "78 CLOCKS=";PEEK(19) ,PEEK(20) GI 130 7? "13 CLOCKS="; PEEK (19) , PEEK (2 
ff) 20 7 "MENU @.. B.. €.. D.. E.. F.. !RETURN 6) ;RETURN 

G.. He. Te. da 80 ? "88 CLOCKS="; PEEK (19), PEEK(26) GE] 140 ? "148 CLOCKS="; PEEK (19) , PEEK (2 
36 7 "A--) I" GET 1,057 CHRS(A):PO RETURN @) :RETURN 

1 REM 20 7 "MENU A.. B.. €.. D.. Es. Fo. 38 IF {A=-68) THEN GOSUB 68 

2 REN # EFFICENT PROGRAMMING W = G.AH.. T.. Ja. Ke. Lis Mi. Wi. O.. PL, 31 IF (A-69) THEN GOSIB 69 

3 REN B LISTING 2. IF GOSUB # @.. R.. Se. Tr. Ue. UL. 32 IF (A=78) THEN GOSUB 78 

4 REN # by Larry O'Keeffe # 25 2? “CHOICE A-->VU >"; :GET #1,A:? 33 IF (A=71) THEN GOSUB 71 

5S REM # Published by Atari Computer #% CHRS{A):? :POKE 19,8:POKE 26,8 34 IF CA=72) THEN GOSUB 72 

6 REM ® Enthusiasts (N.5.4.) b 26 IF (A465) OR €A>86) THEN 25 35 If (A=73) THEN GOSUB 73 

7 REM #t OCTOBER 1986 % «(27 IF (A=65) THEN GOSUB 65 fi] 36 IF (a=74) THEN GOSUB 74 

8 REM seseesteteersscests PURAU UUM SCOS ES LLEGSS ULL eettatt (i 28 IF (A=66) THEN GOSUB 66 37 IF (a=75) THEN GOSUB 75 

WW 18 CLOSE #1: OPEN #1,4,6,"K:" Gl 29 IF (A-67) THEN GOSUB 67 Gi] 36 IF (€A=76) THEN GOSUB 76 
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Ga 39 IF (A=77) THEN GOSUB 77 65 7 "65": RETURN 77 7 "77" RETURN 

40 IF (A=78) THEN GOSUB 78 66 7 "66": RETURN (i 78 7 "76": RETURN 

41 IF (A=79) THEN GOSUB 79 67 7 "67": RETURN fi 79 7 "79" RETURN 

fj 42 IF (a=8@) THEN GOSUB 88 fa 68 ? "68": RETURN 66 7 "86"; RETURN 

43 IF (A-61) THEN GOSUB 81 ff) 69 7 "69": RETURN Bi 7 "BL" RETURN 

44 TF (A-82) THEN GOSUB 62 (i 78 2? "78": RETURN fi 82 7 "82": RETURN 

[I] 45 IF (A=83) THEN GOSUB 8% OM} 71 ? "7i": RETURN fF 83 7 "83": RETURN 

WE] 46 IF (A=84) THEN GOSUB 84 a 72 7 "72": RETURN 84 7 "84" RETURN 

Gi 47 IF (a-85) THEN GOSUB 85 i] 73 2? "73": RETURN 85 7 "85": RETURN 

EY] 48 IF (A=86) THEN GOSUB 86 74° 7 "74" RETURN (Hf 86 7 "86": RETURN 

49 7 PEEK(19),PEEK(26):? :? :G0TO 2 75 7 "75": RETURN 

8 76 7 "76": RETURN 

@ GOSUB 686:G05U8 26 23 BUL=O:POKE PE, BUL:PMS(MStBHUtCS, 68 PMS(Z1,Z1)-CHRS (8) : RETURN 
i FOR S=Ci TO €2 STEP CO:POKE HCR,C M5+BUV4C5) —CHRS (@) : RETURN HE 61 PMS(Z2,ZZ)-CHRS (8) :RETURN 


6: TR=STRIG(CO) : STK=STICK (CG) :GOSUB C2: OE) 26 HR=XXtC1:0N CXX=C5) GOSUB FA: PMS 65 FOR I=1 TO 176 STEP i3:SO0UND 6,1 
GOSUB C5:G05UB C4:G05UB C7:G05UB 26:NE (PL4AY4C6, PAtAY4C6) -ALWS CKK, HX) :RETURN 58,4,15:50UND £,200,6,15: PMS (PItAY, Pit 


HT 5 AYF1I)-ENS C1, 1413) 

2 ON CCTR=CO)% (BUL=CO) ) 402% (BIL) CQ) 27 ¥X-C1: RETURN 66 POKE 785,PEEK (53778) :WEXT I:k=KA 
GOSU6 CB,CI: RETURN OE] 28 GOSUB OK:GOSUB FC:GOSUB RL:GOSUB £.1:50UND 1,6,6,8:500ND 6,0,4,@:AY-INT 
ff = BUL=BULtCS:POKE PE,BUL:ON (BUL}12 FC:GO5UB RL:GOSUB FC:ON PEEKCCON)<)C7 (78¥RND(O) +32) :RETURN 
O)2(PEEK(COL)>CO) GOSUB CL:ON {BUL>CT) GOTO FD:POKE AUE,C@:0N P=C® GOSUB 721 99 POSITION 22,8:? " "oP 
GO5SUB CU: RETURN :GOTO FB - OSITION 4,2:7 " 

4 AVIPEEK (CG) : AV=AU- (62% (AVDERI#(AV EY) 29 POSITION C&,CF:? “PRESS START" :& ” 

—CK)) | MQICH-INTCAV/C3) SPOKE AH, MQ:RETU OSUB C4:PP=CAV/C6)462:G050B RL 186 ON (SC)HSC) GOSHB 128:POKE 77,8 
RN 3@ POSITION CG,CF:? "GOEMEREGER':R :POKE 705,187 

fi 5 YP=ST(CO, STK) :HP=ST(CL,5TK) :AP=AP ETURN 101 POSITION 8,0:7 “Laser Gunners 
+UP¥CCAP)CL) + CAPKCR)) 402% CAP CCL - CAPD 31 7? "RH": G05UB 721:G05UB CH:G0TO Ci ";LUS(CL,LU+C1) :POSITION 4,2:7 "HI="3H 
€R)) 32 JK=LV: SC=SCHINT CBUL)-13O:LUSINTC SC:POSITION 24,2:? “SCR="35C 

6 PP=PP+HPXCCPP)C5)+(PPKCY)) 402%(PP LUt((5C/1888)-5CR)):GO5UB CV:GOSUB 65: 162 POSITION 23,0:7 " ":POSITION 15 
{€52-C2*(PP)CY) SPOKE PH,PP:PMS(P@+AP,P GOSUB CH: RETURN 18:7" "SON (LU=8 
8+AP+CD)=PLS: RETURN 33 Z2=PZ+MH+CS: PASC CPMS (ZZ) ¥CZ-CJ P4CZRCLY) IK) GOSUB 103,110: RETURN 


7 ON CMSL=CO)*(TAGCINT CAY/CA)) (CA)+ :G05SUB 34:0N (P=C@) GOSUB 35: RETURN 103 POP :POP :POP :POP :POP :POSITI 
CZ¥CM5SL)C1) GOSUB CZ,C9:POKE CX,C@ 34 PMS(ZZ,Z2)=CHRS(P) :Z1-ZZ:RETURN ON 15,10:7 "THE EARTH I5 DESTROYED" 
Th) & ON CABSCAP-AY)=CO) GOSUB CG:GO5UB ME 35 Z1=Z1+C1:Z22=72-CLiON (Z1(WB) G05 104 POSITION £5,11:7 "YOU HAVE LOST 
RL: RETURN UB C5:G05UB CZ:0N (Z2)WT-C2) GOSUB Gi: ALL!!! “: POSITION 15,18:7 "PRESS STAR 
9 MSLMSL- (MSL) 98)#C5:0N CMSL(99) G GOSUB FE:ON (Z2)WT)? OR (Z1(WB? GOTO 35 T FOR WAR!": 50-108 

OSHUB CA:POKE MP,MSL:POKE AUC, MSL: RETUR 36 FOR I-38 TO Ci STEP -L:POKE BAR, 165 ON (PEEKCCOND-7) GOSUB 166 


N C5S+(FD-I):FOR J=C8 TO CG STEP C3:S5OUND [YY 166 LU=5:G05UB 721:G0T0 28 

{ 0 MSL=CO@:PMSCNS+HH+CS ,MStMH+C5)-"@ C6, J+I,CA,C8:POKE 707, PEEK (TIM) 114 SOUND 1,100,16,15:4-1.1:H-HAKSS 
":G05UB LP: RETURN 37 NEXT J: NEXT I:SOUND C@,CG,CO,C@: OUND 1,156, 16,18: X=SORCK) : SOUND 1,56,1 
11 BUL=PP:BUU=AP: PMS CMStBUV+CS,M5+B SOUND C1,C6,C8,C@:POKE 767, CE:I=I-I4+C1 6,10: H=KXAN: SOUND 1,0,6,8 
UV4+C5)="F'GOSUB CI:POKE AUD, BUL:RETUR ACL:POKE 767,C8:5C-5C-FE AEE £11 SCR=INT (5C/1600) : RETURN 

N 38 FOR I-c@ TO CF STEP 6.2:SOUND C@ [Ti] 126 HSC=SC:RETURN 

Gk 12 AP=AP-CCLECAPDCL)):0N CAPXLP) GO ,1,C8,I:POKE 704, 1641: NEXT I: SOUND C6, 686 GRAPHICS @:POKE 62,6:POKE 716,80 
SUB 22:RETURN C6,C8,C@:HL-CFF:GOSUB 56:HL-CO 699 H9€-100:L0-6 : 50-108 

13 AP=AP+(C1¥(AP{116)):0N CAP)115) 39 GOSUB S6:LV=LU-Ci:G05UB 99: 60506 766 Ki-1624:K2-2848 

GOSUB 22: RETURN CH: GOSUB 721:RETURN 701 CO=O:C1=1:02=2:C3=3:Ca-4 C5=5:€ 
14 AYIAY-CCLECAYDCLID:ON CAYCLP) GO (EE 5@ SOUND €1,21,C8,CA:SOUND CO,Z2,C6 6=6:07=7:C8-8:09-9:CA-16:CB-11:CC=12:C 
SUB CG: RETURN CA: RETURN Bris: CE=14:CF=15 

BM] 15 AY=AY+ (CL¥CAY(116)):0N CAYD 115) 56 Zi=AP4+C5:Z2=Z1: INC-8 762 C6-=26: CH-160: CI=46:CJ-256 : CK=12 
GOSUB CG: RETURN 57 ZA=ZAFINCH(Z1(128) $Z2=Z2-INCKCZZ 7: CL=32: CM=128 : CN=512:€R=118 205-68: CTH 
18 MSL=MQ:MH=AY: PMS CMS+MHTCS ,MS+MHt >-8):POKE 764, PEEK (53776) :PMS(PO4+Z1,PQ 266: CV=23 :CW“188:CK=77:CY-82:CZ-18 
C5SI=CHRS (C8) POKE AUE,CC +21) =CHRS (CFF) 703 CFF=255: BUL=C@: PP=62:LVU-C5: JK=L 
19 ON CHP)+C2%¢ NOT UP) GOSUB CE,CF 56 PMS (P6422, P8+Z2)-CHRS CHL) :POKE S V:PH=53246: AH=53249: PE-53252: MP=53253: 
SPMS CPITAY, PLIAVICF) -ALS: RETURN 3279, @: INCHINC+@.5:0N (Z1¢17834(Z2)C4) COL=53256:CON=53279:HCR=53278 

(] 26 UP=C1%¢€ NOT UP): RETURN GOTO 57,57 764 BAR=53251: AUO-53763 : AUC=53760°58 
21 ON CPUP)+C2%¢€ WOT PUP) GOSHB CC, (I 59 FOR I-i TO 106:POKE 704,PEEK(S37 UE=53761: TIM-53770:LP=33 :RL=19: OK=215F 
CO:G05SEB C6: RETURN 76):NEXT I:FOR I-C@ TO C7:POKE 5324842 A=27:FB=28: FC-29: FO-31:FE-58 

Oil 22 PUP=C1¥€ NOT PUP) :RETURN ,O:NEXT I: RETURN 718 DIM PMS(K2) ,ALS(CD) , PLS (CB) , NUS 


Cay~ 
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(CB) ,EXS (CFF), LUSCCI), STCCL, CF), TAGCCF 
7, ALMS (5) 

A 711 FOR I=C@ TO CF:READ 4,8:57(C8,1 
J=AISTCOL, LI =BINEXT FT: ALWS="2%0 4" 

fi 712 DATA 9,6, 8,8, 6,8, 8,8, 8,8, 1 
yA, “1,1, 0,4, @,8, 1,-1, -1,-1, @,-4, 
6,8, 1,8, -1,8, 9,64 

OTS 713 LUSCCL) =e": L US (OTD ="48":L US (023 
=LUS 

BY) 714 ALS="0C4t) HERD 4400" PLS" OU Att 
tdboq 

4 715 EXS="evgesitisegvvevsselties sev 
040J0J* Je Je 4000 JES BEI IO 0C4IT sete dT 4 
tt 4n0S en dee § OCA + |! 0) ph" 

GB 716 EXS(92,183)-" 99+ < ¢a5 eC teeepeel< 
EELLOPOEOTPOPLL ET OEETEETEE J FE 0TETT HEH 
PLAVETECEOUT ONE AFNEEEEETTENTEEE TT OTY: 

(13 720 A=ADRCPNS) :PMBIINT CA/KL)¥K1:0N 
(PMB(A) GOSUB 770:5=PMB-A:PO-S5+CN: P1-P 
OtCM: P2-PLtCM: PJ-P2Z+OM: MS-S5tI84 

HE 721 WI=P24CL: WB=PZ4+CK:POKE 559,CI:P 
OKE 54279, PMB/CJ:POKE 53277,€3 

722 PMS="9": PMS (K2) —" 9": PMS (2) PMS: 
WUS=PMS(C1,CB) :P=255 

(a 723 POKE 752,3:G05UB 160:POSITION C 
6,€9:FOR I=Ci TO 12:7 "SR INERT I: PMs 
(PL, PL) =": PMS CPLTCK ,PLICK ="! 

BI) 724 PMS (P1402, P1402)=PMS (1) :POKE 70 
6,14:POKE 53250, 92: PMS CWT) -"[}"": PMS (HB) 
=f": PMS (P2433, RB) —PMS CWT) 

fig 725 POKE 707,66:POKE 53251,C5:POKE 
53258, CO: POKE 53259, C3:PMS (PS, P34CK) =P 
NS (P2,P24CK) SAYIINT C78¥RND (CO) HCL) 

[Ei 726 POKE 764,26:POKE 53266, CFF 

OH 727 POKE 53257,C1:PMSC(PIFAY, PLtAVIC 
DIALS: AP=INT (78¥RND (CG) 4+CL) :GOSUB C6 

(CH 728 FOR I=CO TO CF: TAGCI)-=INTCRND CC 
BINCG) NEXT I:POKE 765,187 

{H 75@ RETURN 

770 PMB=PNB+K1: RETURN 

Ed 900 FOR I-68 TO 9@0:LI5T I:LIST 1410 
G@G:FOR Jol TO 39:IF PEEKC(CON)=7 THEN WN 
EXT J: NEXT I 

1908 REM THIS I5 STRUCTURED PROGRAMNIN 
6 WRITTEN BY ROBERT LANIGAN-O' KEE 
FFE, FROM CONCEPT BY COMPUTE 1582 
1061 REM LINE @ GOSUB INITIALIZATION 

LIWE £1 MAIN LOOP DRIVEN BY FOR 

Loop 

1982 REM TRIG+NOD BUL THEN FIRE. IF BUL 
» THEN MOVE LASER BULLET 

1063 REM MOVE LASER BULLET:IF HIT EXPL 
ODE ALIEN: IF WO HIT REARN 

1004 REM MOVE ALIEN 

1665 REM VERT STICK UP, HORZ STICK HP: 
CALCULATE UP/DORN STICK 

1086 REM HORZ PLAYER... CALCULATE 

1687 REM PLAYER POKE HORZ REGISTER: VE 


RTICAL STRING 

1868 REM HAS ALIEN LAUNCHED MISSILE? 
1989 REM MOVE MISSILE 

161@ REM CLEAR OWT MISSILE DONT LIKE 
THIS LINE.... 

1011 REM BULLET=PLAYERS HOZ+VERT POSIT 
TON: CREATE LAZER BULLET:GO5UB MOVE LAS 
ER BULLET 

1012 REM PLAYER UP AND LIMITS 

1013 REM PLAYER DOWN AND LIMITS 

1614 REM ALIEN UP AND LIMITS 

1015 REM ALIEN DOWN AND LIMITS 

1018 REM CHECK FOR TARGET AN LAUNCH MI 
S5ILE 
1619 
1628 
1821 
1022 
1823 
SAME 
1626 
1827 
1826 
1829 
1038 
1831 
Y 
1832 REM UPDATE SCORE: RE-ARM GUN: WRITE 
TITLES: NUMBER OF LIVES?: EXPLODE ALIEN 
RESTORE ALIEN:GO TO MAIN LOOP 

1033 REM CUT HOLE IN WALL 

1834 REM HOLE CUTTER 

1035 REM Zi HALL DOWN TO WB:Z2 WALL UP 
To WT 

1636 REM MOVE BOUNDARY 

1037 REM DELAY 

1038 REM WALL KILL SOUNDS 

1639 REM KILL OFF PLAYER: RESTART GAME 
1056 REM SOUND FOR BARRIER BREAKDOWN 
1056 REM SET VAPOURIZATION POINTS 

1057 REM VAPOURIZE PLAYER TUFF LUCK 
1058 REM SPLATTER PLAYER 

1659 REM COLOUR EFFECT OF PLAYER GOING 
1068 REM BYE BYE UP 

1661 REM BYE BYE DOWN 

1065 REM BYE BYE ALIEN 

1066 REM RE-POSITION ALIEN FOR NEW ATT 
ack 
1099 
1166 
1181 
1162 
1183 
1164 
1185 
1166 
N 
1116 


REM MOVE ALIEN 

REM ALIEN UP OR DOWN 

REM PLAYER MOTION LOOP 

REM PLAYER UP OR DOWN 

REM CLEAR OWT BULLET... POSSIBLE 
LOCATION AS LINE 10777 

REM RESET ALIEN ROTATION 

REM ROTATE ALIEN CRAFT 

REM START SCREEN LOOP 

REM STARTUP SCREEN OSCILLATIONS 
REM START ROUTINE 

REM CLEAR SCREEN FOR FIELD OF PLA 


CLEAR PLAY AREA 

BANNER TITLE/SCORES/LIVES/HI 
BONUS LIFE !!! WOOPPIE!!! 

END GAME 

GET OUT OF GAME... YOH LOOSE 
GET OUT OF GAME... YOU LOOSE 
CHECK CONSOL FOR NEW GAME 
FRESH LIVE5-5 FOR NEW GAME RU 


REN 
REN 
REN 
REM 
REM 
REM 
REN 
REM 


SOUND FOR BONUS PLAYERS:S5ET 5 
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REM 


CORE 
Lilt 
1128 
1686 
1706 
1783 
+ AP 
1716 
17ii 
1712 
1714 
1715 


FLAG 

REM SET SCORE BOWLS 

REM SET HIGH SCORE 

REM SET GR.@: TITLE SCREEN 

REM SET VARIABLES 

REM PP PLAYER POS. PH PLAYER HORZ 
ALIEN POS. AH ALIEN HORZ. 

REM DIMENSION STRINGS 

REM CREATE STICK TRUTH TABLE 

REM DATA FOR TABLE 

REM ALIEN + PLAYER SHAPES 

REM EXPLODE STRING FOR ALIEN 

1716 REM SAME STRING 

41728 REM GET CRUDE ADDRESS OF P/M STRI 
NG AND FINE TUNE. IF BELOW, ADJUST. GI 
VE GOOD VALUES OF STRING ADDRESSES 
1721 REM RE-ENTRY START POINT: TELL ANT 
IC LOCATION OF PMBASE: ENGAGE DMA:CLEAR 
PLAYER STRING: IF LINE TOO LONG POKE & 
2,8 

1722 REM CLEAR OWT TOTAL P/M FIELD?) ~ 
L WHLL STRING 

41723 REM GAME TITLE AND PLAYFIELD 

1724 REM CREATE WALL 

1725 REM CREATE ZONE 

1726 REM POKE COLOUR AND 5IZE 

1727 REM PUT ALIEN ON SCREEN 

1728 REM CREATE TARGET RANGE 

175@ REM REMOVE LINE 756 

1798 REM DATA FOR STRINGS ONLY... REQH 
IRE FOR I=1 TO M:READ A:XKSCI,I)-CHRS 
(AY INERT I.... FOR EXS,X=108.AL$=13.PL 
$=11 


1751 REM DATA FOR ALIEN 6,8,8,28,62 
»127,62,127,62,28,8,0,6 
1792 REM DATA FOR PLAYER 06,6,127,8,2 


8,28,28,8,127,8,8 

1793 REM DATA FOR ALIEN EXPLOSION 9,9 
,8,20,36,73,28,73,36,28,8,9,80,6,8,8 ~S 
, 20,73, 28,73,28,36,8,8 

1794 REM DATA 6,6,8,26,74,20,74,42,74, 
26, 74,28,8,0,0,20,74,42,74,42,8,42,74, 
42,74 

1795 REM DATA 26,0,0,8,74,73,8,28, 28,2 
6,8,73,74,8,8,42,28,8,65,28,36,8,36,28 
765 

1796 REM DATA 8,28,42,32,12,64,67,8,4, 
16,2,33,64,41,17,72,6,8,24,66,102,56,5 
6,162,680 

1797 REM DATA 24,6,0,0,0,8,0,24,66,38, 
38,66,24,0,0,6,0,0,60,6,8,8,24,24,8 
1798 REM DATA 6,0,6,0,6,6,0,0,6,0,8,16 
,6,8,6,8,0,0,8,6,6,0,0,16,8 

1739 REM DATA @,6,8,0,0,0,6,9,6,0,8,8, 
6,6,6,0,0,8,6,0,6,9,8,8,8 

1886 REM DATA 6,0,8,6,8,80,8,8 

1960 REM DUAL LISTER ROUTINE... PRESS § 
ELECT 
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Hi there ST'ers this time we have a lot to talk about ,firstly 
here are some software reviews: 


WINTER GAMES By EPYX 


This is a new game from Epyx that allows you to partake in the 
Winter Olympic Events. One to eight people can take part in the game, 
each player represents a country of their choice with the ST 
displaying it's Flag and Anthem. There are six events to compete in, 
Bobsled, Ski Jump, Figure Skating, Free-tyle Skating, Hot Dog Stunt 
jumps and Biathlon. The first thing you notice is the outstanding 
quality of the graphics in all the events. The play mechanics are 
excellent using 1 or 2 joysticks or keyboard. The events range from 
easy to hard, always trying to get that perfect score!. 


N-VISION (A.N.A. PAINTWORKS) By Audio Light/Activision 


This is the latest Paint program for the ST. It is made by Audio 
Light, who also made Activisions Music Studio (news:Activision now 
sells N-Vision, renamed Paintworks.) and as such has some interesting 
features that permit a very good audio-visual show to be made up. It 
can best be described as a cross between DEGAS & NEOCHROME. The paint 
area is 1 or 2 screens high, with a 2 screen picture a printout fills 
the full 8.5"X11" page. In addidion to the main screen there is also 
a second screen for use as a clipboard for temp storage of images, 
patterns, doodling, etc. All options are selected with the mouse from 
pop-down and pop-up menus. A Wide range of brush and line styles are 


availble in both Single and multicolored types. a mass of 
Squares/Rectangles/Circles/Ovals/Filled/UnFilled are provided as well 
as connecting, ray, & constained lines. Color controls are very 


versatile with ‘Color Cycling' with up to 512 different pallettes! 
This make for quite powerfull animation illusions. N-vision also has 
a color blend feature, just set 2 colors and the program will set 
your pallette with a smooth blend of color between your choices. 
Pictures can be saved in compressed format to save on disk space and 
the program can also load DEGAS & NEO piccies too. The disk is 
Supplied with several demo pictues, many fill patterns & brushes and 
some clip-art. A supplied program merges songs (some included) 
created with ‘Music Studio' and a user written script to present a 
Slide show with music backing! Overall a great program to use (also 
has a very good manual) capable of assisting some great works of 
computer art. 


LEADER BOARD (A GOLF SIMULATOR) By Access 


Warning: This program causes sleepless nights! It is. so 
addictive that a certain EDITOR and I are often to be found playing 
round after round late Satuday nites (& early Sunday morns!) .So 
before you buy it stock up on vitamins!. Anyway this is a golf game 
for 1 to 4 players, there are 3 levels of difficulty and 4 different 
courses to play. The graphics are surperb giving a 3~D view taken 
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from a TV camera behind the player. There are trees, rough, bunkers, 
and water hazards on the course to hinder the golfer. A full range of 
clubs are available to use, and there is a wind and ground guage to 
help with your selection. I would rate it true ARCADE QUALITY, in 
fact I compared it to it's arcade twin and the ST vesion was faster! 
The on screen golfer has ae beautifully animated swing, and the 
sound-FX of club hitting ball, ball falling into cup, etc and even 
ball splashing into water (oops) are totally realistic. There is also 
a driving range to practice your fairway shots. One hel'ava good 
game. 


Atari has announced at the German Computer show at Hanover the 
new 2080ST and the 4160ST at 2 and 4 MEG ram wow! No prices or other 
details known at this till, but I shall be following it up. Also the 
Blitter upgrade will be available to ALL ST models and will speed up 
grahics operations 3-6 times. 


Overall the ST are going great , with the English mags brimming 
with new products. And the U.S. companies are also doing their stuff, 
with EPYX adding 3 new titles to their exsisting 3 titles (all of 
which I rate highly) World Games, Champion Wrestling, & Super Cycle. 
Activision also added two new games , Little Computer People (kind of 
a computer goldfish bowl!) a C64 program ported and improved greatly, 
the other game is HACKER II the sequel to the popular HACKER, similar 
story but totaly new play mechanics, very advanced 


ANTIC have expanded their excellent line of programs with some 
extension to the CAD-3D system. 


Other news closer to home is that from next month (November 86) 
we will have two Public Domain ST disks, one being assorted programs, 
the other will be a slide show disk. 


I have for sale fluffy mouse covers in white or grey they are 
complete with ears, eyes and a tail, and very cute looking. $8 at the 
meetings or $10 to post. 


By and great ST'ng 


ww 


UP IN LIGHTS “{ 


by Craig Armsworth 


This is the first in a series of tutorials that teach you tricks 
on how to 'beef' up title screens, with graphics, sound and colour to 
create the illusion of animation. One problem with great title 
screens is that the are usually better than the program and take up 
more memory than the main program. Well here we go. 


Fade in Fade out 
You may have seen a few programs, where text appears out of 
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nowhere and then dissappears into obscurity, very effective, very 
easy, and memory efficent. The trick is have what you want to ‘fade 
in' already on the screen but the same colour as the background and 
then change its colour slowly so it suddenly appears. The following 


short program demonstrates. 


-1 


10 

20 LIST 

30 FOR X=0 TO 14 

40 POKE REG, X 

SO FOR D=1 TO 10:NEXT D:NEXT X 
60 FOR X=14 TO O STEP 

70 POKE REG, X 

80 FOR D=1 TO 10:NEXT D:NEXT X 
30 


RPEG=REG—1% CREG=710)+1% CREG=709) 


100 FOR D=1 TO SOsNEXT D:GOTO 30 


GRAPHICS O:POKE 710,0:POKE 709, 0: REG=710 


If your worried about line 90 all it does is switch the value of 
the variable REG between 709 and 710. 


Well 
do in 
amazed. 


Thats 
a bit more time. 





AL REM StHPEPHEeeEeresessseesseeeeeeasosesssevassaatiniiciristis 
2 REN # HP IN LIGHTS R 
3 REN # by Craig arasworth t 
4 REM # Published by Atari Computer & 
5 REM & Enthusiasts (N.5.H.) 8 
6 REM # OCTOBER 1986 tt 
7 


REM 
18 L=18666:R-27080 

Hi 186 GRAPHICS 18:FOR K-74 TO 711:P0 
KE ¥,@:NEXT K 

(M3) 105 POKE 712, PEEK (53778) 

PF 110 COLOR 1:4=5:¥=2:11-0:G05UB R:X= 
.  -2=10;G050B8 R2X=19:L1=20:605UB Ri x= 
26:Li=368:GO5SUB RiX=29:L1-40:G05HB R 
WM} 128 X=39;:L1-8:G05UB R:X=46:L1=40:60 
SUB R 

WA 230 COLOR 2:X=1:Y=24:L1=50:G05UB R: 
Y=34:L1=78:G05UB Ri¥-44:L1=60:G05UB R: 
Y=54:11-86:G050B Ri Y-64:L1=40:G05UB R 
M7} 148 COLOR 3:X=26:7=160:L1-40:G05UB 
RIMI33:L1-8:G05UB R:X=40:11=96:G05B R 
'X=-48:L1=160: 660506 R 

BM] 156 COLOR 4:H=20:Y=50:Li=110:GO5UB 
RiK=27:Y-48:L1-68:G05UB RiH=3J4:Y-JeiLi 
=G0:605UB R 

fii 166 COLOR 5:X=60:Y=5:L1-128:G05UB R 
TN=64:Y-15:L1-166;G05UB RIX-6BiY=25:L1 
=Z8;GO05UB RiX=64:Y=35:L1=100:GO5UB R 
(7M 170 4-66: ¥=45:11-178:G05UB R:k=64:Y 
=$5:L1=106:GO5UB RiX=68:¥=-65:11=146: 60 
SUB R 





SUOTUGECERUSCUTUCUDSUCLUSUA UDP S DOSE CT DEL DGPS ROS CUD EAU E EES OTS 


all for this month, much much more 


186 COLOR 6:4=41:7=20:L1-126:G05UB 
R 

GJ 198 COLOR 7:K-8:Y-164:Li-16:GG5UB R 
THOS: YIL7@:Li-6G:GO5UB RiX=L8:Y=172:L1 
=70:G05UB R:H-17:L1-18:GOSUB R 

M1} 200 H=24:L1-150:GO5UB R:X=31:11-128 
1GOSUB RiX=38:L1-6:605UB R:X=45:L1-136 
:G05UB R:X-52:L1-40:G05UB R 

fd 218 ¥=59:L1-8:G605UB R:K=66:Y=178:L2 
=60:G05UB R:X=70:7=168:L1-28:G050B R 
228 TRAP 258 

G4 236 COLOR 8:X=48:Y=186:RESTORE 1018 
8 

fY) 249 READ 4,6,C,D:PLOT A+H,B+¥: DRANT 
O C#HH,D+¥:G0TO 246 

ff] 250 COLOR L:PLOT X,Y-3:DRAWTO X,Y-Z 
6:PLOT H+1,Y-L:DRAWTO K+3,Y-3 

CE] 266 COLOR 2:PLOT X+2,¥-1:DRANTO H+7 
»Y-TIPLOT H+2,Y:DRAWTO Kt3,¥ 

fz 278 COLOR 3:PLOT X#1,¥+1:DRAWTO X+6 
»Y+6:PLOT H~1,Y+i:DRAWNTO X-3,¥4tI 

(2 28@ COLOR 4:PLOT X+1,¥-2:DRANTO Kt5 
2¥-AZIPLOT R-2, YL: DRAWTO X-4,Y42 

EE) 296 COLOR S:PLOT X+i,¥+4:DRAWTO Kt3 
27¥4+20: PLOT K-i,¥~-2:DRANTO K-3,¥-1 

(J 316 COLOR 7:PLOT X-2,Y:DRAWTO H-7,¥ 
'PLOT X-1,Y-3:DRAWTO K-2,Y-5 

EE) 400 FOR H=705 TO 712: A-INTCRND (6) #1 
6)*16 

Gf) 414 FOR Y-8 TO 14:POKE K,¥+tA:IF K=-7 
16 THEN POKE 7868,Y+A 
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that was simple and effective so just imagine what you can 
GR.10 with nine colours, type in the following listing and be 


next month when I have 


FA) 426 FOR D=1 TO 10:NEXT D:NEXT Y 

EIB 430 FOR Y=14 TO @ STEP -1:POKE X,Y+ 

Q:IF X=718 THEN POKE 768,Y+A 

GE 448 FOR O-=1 TO 1@:NEXT DINEXT Y:POK 
E X,@:POKE 766,89 

OI) 45@ FOR D=i TO 15:NEHT D:POKE 712,P 
EEK (53778) :NEXT X:G0TO 468 

fl] 2008 RESTORE L4Li:READ N:FOR D=1 TO 
N:READ A, BiPLOT AtK, B+Y: NEXT DS RETURN 


HR 190008 DATA 24,6,0,1,8,2,8,3,8,4,8,5 
78,2,1,3,1,2,7,3,2,2,3,3,3,2,4,3,4,2,5 
23,5,2,6,3,6,0,7,1,7,2,27,3,7,4,7,5,7 
Wd 16016 DATA 21,1,0,2,0,3,0,4,6,5,0,8 
71,5,1,0,2,80,3,1,3,2,3,3,4,4,4,5,4,5,9 
76,6,5,6,1,7,2,7,3,7,4,7 

i) 16628 DATA 24,0,8,1,0,5,8,0,1,1,1,5 
21,86,2,2,2,5,2,8,3,2,3,5,3,6,4,3,4,5,4 
,8,5,3,5,5,5,0,6,4,6,5,6,6,7,4,7,9,7 
HY) 16036 DATA 6,0,0,1,0,8,1,1,1,1,2,8, 
3 

EU] 16048 DATA 20,6,0,1,6,2,0,3,8,4,8,5 
76,2,1,3,1,2,2,3,2,2,3,3,3,2,4,3,4,2,5 
23,5,2,6,3,6,2,7,3,7 

(hi 10050 DATA 24,2,6,3,6,1,1,2,1,3,1,4 
21,8,2,1,2,4,2,5,2,8,3,5,3,0,4,1,4,2,4 
23,4,4,4,5,4,6,5,5,5,80,6,5,6,8,7,5,7 
Ge 18068 DATA 24,1,6,2,6,3,8,4,0,0,1,1 
21,4,1,5,1,6,2,5,2,0,3,5,3,6,4,5,4,8,5 
25,5,8,6,1,6,4,6,5,6,1,7,2,7,3,7,4,7 
EE] 10676 DATA 36,6,6,1,0,2,8,3,0,4,8,8 


Cay” 


71,4,1,5,1,0,2,4,2,5,2,8,3,1,3,2,3,3,8 .2,4,3,4,5,2,4,5,4,2,5,3,5,2,6,3,6,2,7 ,1,6,2,6,4,6,5,6,1,7,2,7,4,7,5;,7 


74,3,0,4,4,4,5,4,0,5,4,5,5,5,8,6,4,6,5 ,3,7 i) 18188 DATA -1,-27,1,-27,-2,-26,-1,- 
6 fd 10128 DATA 24,6,0,1,0,2,8,3,6,4,08,8 26,1,-26,2,-26,-3,-25,-2,-25,2,-25, 3,7 
fH 10071 DATA 8,7,1,7,2,7,3,724,7 71,4,1,5,1,0,2,4,2,5,2,9,3,1,3,2,3,3,3 25,-3,-25,-3,-21,3,-25,3,-21,-4,-21 


ED) 10080 DATA 20,0,9,5,0,0,1,5,1,0,2,5 ,4,3,0,4,4,4,0,5,4,5,0,6,5,6,0,7,5,7 [Iq 10198 DATA -4,-17,4,-21,4,-17,-5,-L 
,2,8,3,5,3,0,4,5,4,0,5,5,5,8,6,1,6,4,6 MM 10138 DATA 20,0,6,1,0,2,0,3,6,4,8,8 7,-5,-13,5,-17,5,-13,76,-13,-6,-9,6,71 


95 ,6,1,7,2,7,3527,4,7 71,4,1,5,1,8,2,4,2,5,2,8,3,1,3,2,3,3,3 3,6,-9,-7,-9,77,75,7,79,7,-5,-8, -5, -8, 
ER) 19096 DATA 26,6,0,1,0,5,8,6,9,6,1,1 ,4,3,0,4,0,5,6,6,8,7 5 


21,5,1,6,1,@,2,2,2,4,2,6,2,9,3,2,3,4,3 10146 DATA 24,8,6,1,0,2,6,3,0,4,8,86 18260 DATA 6,-5,8,5,-7,5,-7,9,7,5,7 
,6,3,8,46,3,4,6,4,8,5,3,5,6,5,0,6,6,6,8 ,1,4,1,5,1,0,2,5,2,0,3,5,3,0,4,5,4,8,5 ,3,-6,9,~6,24,6,9,6,24,-5,13,-5,24,5,1 


? 5,5,0,6,4,6,5,6,0,7,1,7,2,7,5,7,4,7 %3,5,24,-4,17,-4,24,4,17,4,24,-3,71,-3, 
16691 DATA 6,7 10150 DATA 28,1,8,2,0,3,0,4,0,5,0,8 24 

18108 DATA 21,8,6,1,6,2,0,3,8,4,6,5 ,1,1,1,5,1,0,2,0,3,0,4,8,5,0,6,1,6,4,6 18218 DATA 3,21,3,24,-18,30,16,36,~ 
,9,0,1,0,2,0,3,1,3,2,3,3,3,0,4,0,5,0,6 ,5,6,1,7,2,7,3,7,4,7 9,29,9,29,-9,28,9,28,-7,27,7,27 
28,751,7,2,7,3,7,4,7,5,7 GT) 16170 DATA 23,6,8,6,0,0,1,6,1,0,2,6 [8 10220 DATA -7,26,-1,26,1,26,7,26,-7 


18118 DATA 16,6,8,5,0,9,1,5,1,1,2,4 »2,8,3,5,3,60,3,1,4,3,4,5,4,1,5,3,5,5,5 225,7-2,25,2,25,7,25,-1,6,1,6,4,-1,0,1 


WwW HW 





BOOK REVIEW 


MAPPING THE ATARI 
by Lance Munday, South Penrith 


Yes, you've seen them in programs and heard talk about them, but 
if it's all hocus-pocus to you then get this book. 


Mapping the ATARI is in easy to understand English and the 
memory map is laid out sequentially from location 1 to 65528 witha 
description of what each location does. 


When reading through a program keep this book at hand and when 
you come upon a Poke or Peek refer to it in Mapping the ATARI and you 
will understand it's use in the program. 


This book also looks at the CTIA/GTIA, POKEY, PIA and ANTIC 
chips and gives a good overview of each, and in the appendices it 
covers VBLANK, Graphic Memory Map, Timing Values, A and B ROMS, 
Color, Sound, PM Graphics, Display List, Numerical Conversions and 
ATASCII and Internal Character Code Values and if this isn't enough 
there is an Index by Label as well as an Index by Subject. 


This book published by Compute! Books provides a comprehensive 


listing and description of memory locations and will aid you in 
programming your ATARI computer. 


tro 
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PEWS FROM TRE WAITED KIAGSEM 


by Ian Murray 





At long last I have found enough time to set pen to paper to let 
you all share in the knowledge of how ATARI is fairing on the other 
side the world. While we hear and see quite a lot about Atari in the 
USA through ANTIC, ANALOG, COMPUTE, BYTE and other USER GROUP's 
Magazines, we do not hear a great deal from the UK. Those of us 
fortunate enough to read PAGE 6 magazine do see some of the picture, 
but not all. What follows is your humble correspondents experience. 


Most of my time was spent in Scotland, so the majority of what I 
write will pertain to Edinburgh, though some of my tale refers to 
London as well. Edinburgh is a city of approximately half a million 
people, and is served by three computer. shops which sell ATARI 
computers. This is augmented by a couple of chain stores and 
electrical retailers which sell XE computers only. The main 
competition seemed to be the Amstrad. The Amstrad was sold at more 
outlets, but mainly chain stores, rather than computer shops. 


Guess what? I only saw one Commodore for sale anywhere in London 
or Edinburgh. The Guardian newspaper of May 22nd stated that 
Commodore had closed its UK factory at Corby. Apple was nowhere to be 
seen in any of the dozen or so computer shops which I visited, so as 
you may surmise, the ST finds itself virtually alone in the 
marketplace. Many small businesses seem to have taken the Atari as 
the answer to their computer problems. 


This brings me to the ST itself. There are four models available 
in the UK market, and since most of the machines are imported from 
West Germany, I would assume that this would hold true for most of 
Europe. The 520 and 1040 ST have two separate configurations, namely 
the models ST-F and ST-M. The differences being that the disk drive 
is inbuilt on the ST-F and external on the ST-M. The prices are the 
same for both models and equates to approximately A$1400.00. The XL 
range on the other hand are quite differently priced to those here in 
Oz. During the early part of 1986 the recommended retail price for an 
800 XL and 1050 drive was about A$250.00. Yes that did include both 
items. Those prices did increase just before I arrived, wouldn't you 
know it, trust my luck. I did manage to pick up a 1050 drive at the 
new prices though, which meant an outlaw of just over A$200.00 (Mobex 
please take note). 


Software shops were in abundance, and seemed to be thriving. 
They supported Atari, Commodore, BBC and Amstrad on the average. What 
a surprise I got upon entering one establishment in London where 
about 95% of the software on offer was Atari specific. The price of 
software was quite surprising also, with all prices much cheaper than 
here in Australia. The majority of programs were tape based and 
ranged in price from about A$2.00 to A$30.00. Even the American disk 
based programs were much cheaper, with that same London shop selling 
all USA game software which was over 2-3 years old for A$2.00. 
Unfortunately I had most of the good stuff already, so I saved the 
trouble of having to buy another bag. 


Other items on my shopping list were a video digitizer, and 


hi-res graphics board which will allow a resolution of 1024x600 with 
256 colours on the older 400/800 systems. Time and effort are the 
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only things which have prevented the completion of these kits. I hope 
to be able to show them at meetings sometime in the future as they 
are built. 


Another item of interest for ST owners was an article in the 
Guardian about CP/M software. Apparrently Atari are supplying a CP/M 
disk with each new system sold, but that the documentation supplied 
was not of a very good standard. The article went on to say that Mike 
Wilding, an ex-Atari employee is supplying a 'cleaned-up' version 
which includes the CP/M disk, documentation and a utilities disk for 
about A$15.00. For anyone who is interested, here is the address and 
phone number: 


Mikes Computer Store 

292 London Road, 

Westcliffe-On-Sea, 

Ph: (0702) 33 2554 or ISD 0011 44 702 33 2554 


Whilst in Edinburgh, I managed to find out a little about the 
local user groups. There appear to be two such groups in Edinburgh, 
each with about 50 members. The Scots, like the civilised nation they 
are, hold their meetings in a pub. Do I hear anyone second the 
motion? I have managed to establish contact with one of these clubs, 
and they have expressed interest in exchanging ideas and news. As any 
of this comes to hand, I shall relay items of interest to all of you 
via Inside Info. If anyone would like to speak to me about anything 
in this article, or have other questions, I will be happy to talk to 
you. 


ww 


REVIEW. ADVENTURE MASTER 


C.B.S. Software 
by Steve Bradbury 


The blurb at the beginning of the Program Guide included with 
the two disk package states: "ADVENTURE MASTER puts you in total 
control." 


After many months experimenting with the product, I have come to 
the conclusion that the only thing in ‘total control' is the program 
itself. ADVENTURE MASTER has’' left me in no doubt as to who is the 
master. It certainly was not me! 


After much head scratching, trying to unravel the mysteries of 
the Guide, (an adventure in itself!) I finally embarked on my first 
text adventure. INFOCOM watch out I said to myself as I rattled off 
the purple prose. The skeleton plot developed at a cracking pace. 
Items and puzzles were liberally scattered amongst rooms, caves, and 
other exotic locations. Finally after extensive game testing I was 
ready to add the final flourish, a natty graphics title screen anda 
smattering of other screens throughout the game. Although very 
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limited (three colours), the graphics option proved quite flexible. 


Finally the time arrived to transfer the program logic to my 
collection of rooms, items, and usable words. A flick of the drive, 
and out popped the greatest breakthrough in adventure gaming since 
ZORK I! Only one problem. The bugger would not load. I am only 
guessing, but I think the combined shock of trying to fit the program 
logic and the graphics on a disk with finite space was too much for 
the program's dear little heart. I had created Frankenstein's 
monster! 


Although partly accessable through the ADVENTURE MASTER disk for 
viewing rooms and permitted directions, etc., the new disk went 
immediately on strike when booted and refused to acknowledge any 
command. I abandoned the project in disgust. 


POST SCRIPT 


Months later I decided to give the product a second chance. 
Keeping a very close eye on available memory and staying clear of 
graphics, I churned out a salty tale called "Pirates Booty". The 
programs bad habits did return to some extent when adding words to 
the games vocabulary. After accepting about 50 words it started to 
get a bit iffy, and would not understand some words during game play. 


Documentation for ADVENTURE MASTER brags that the program can 
cope with 50 rooms, 10 illustrations, and 50 to 100 words and 
phrases. In reality the game seems to spit out the dummy after 45 
rooms, no illustrations, and about 50 words. 


If anyone manages to get a copy of ‘Pirates Booty’ and is 
stumped due to the limited vocabulary, they are welcomed to get in 
touch with the author (me). Just send a stamped, self-addressed 
envelope and I shall send you a list of 'VISICLUES' and a map 
designed in the true INFOCOM tradition. 

(A copy of PIRATES BOOTY hopefully will be available from the 
software exchange in the near future. Ed.) 


wHeK 


amie Ce7 tee 


by K. Harris 
RANDOM ALLEY ADVENTURE 
A Creative Pastimes Book - Reston Publishing Company, Inc 


"Random Alley Adventure' is the story of Harold, a teenage boy 
who finds himself in a world where events are governed by chance. But 
that is not the main purpose of the book. The book states in its 
Opening sentence "Random Alley Adventure is for anyone interested in 
the laws of chance." and introduces the reader to the RANDOM function 
of Atari Basic as we follow Harold's adventures. 
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Cay~ 


Each chapter is divided into written narrative of each episode 
of Harold's adventures, complemented by program listings displaying 
how Harold (and the Atari computer) demonstrate the simulation of 
random events. 


The programs and story are a simple introduction to the beginner 
programmer or child who has advanced from playing computer games to 
enquiring how they are programmed. The book commences the reader with 
simulating the tossing of a coin and advances the reader in stages 
through the story, while introducing other Basic functions which 
build and enhance a program such as SOUND, COLOR, etc., to responses 
to random answers, the basis of adventuring programming. 


The storyline should find to be interesting to a child (my niece 
enjoyed it) as well as an introduction to programming and problem 


solving of random events. 
wei 


=I BOOK REVIEN 


COMPUTE!'s ST 
Programmer's Guide 
US price $16.95, 356 pages, ring-bound. 


In the past, Compute! has had its finger on the pulse and 
produced two of the four major reference books for the Atari, both 
very "needed" books on the Atari 8 bit machines, "Mapping the Atari" 
(is perhaps the Bible) with "Inside Atari DOS". The quartet becomes 
complete with the black book by Poole/Mcniff & Cook "Your Atari 
Computer" and "Atari Basic faster and better" by Evans. 


The ST's introduction heralded a new generation of atari, the 
68000 and new languages to learn. However both the LOGO and BASIC 
manuals supplied with the ST could better have been supplied ona 
disk for the user to print out, for the quality would have been 
comparible and the paper quality better. What few illustrations could 
have been supplied on a simple A4 page, or as picture files. 


What was needed was a good quality reference book that will 
survive the ravages of time, the frustrations of users, and explain 
the contents of both Manuals in English. Compute! has done this well, 
and have saved the day. The "ST Programmer's Guide" is a reference 
manual that covers "STBASIC", "ST-LOGO" and most important "GEM", not 
covered by either "Sourcebook". 


I found the guide increadibly helpful as it cleared out a few 
mysteries about the ST and explains it all with only a small amount 
of Jargon; jargon that is easy to pick up and understand without 
being vague or being given the feeling one is somewhere-else in the 
universe. 


My first ST Basic Program bombed and I could not see a reason 
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why I got an error code 2. STBASIC and the “source book", gives the 
definition of the error code as “SOMETHING IS WRONG". I thought that 
a bit fatuous, almost naieve, for it tells me nothing. In comparison, 
The ST Programmer's Guide relates this to a "Syntax Error" where 
there could be a problem caused by punctuation or the variable name. 
The error code definitions are very helpful in the Guide. 


The Guide is also written for the novice, and takes one through 
a quick course in the fundamentals of programming and applications. 
This is really important if you have been an 8-bit programmer for a 
while. There are lots of great tricks that just will not work in 16 
bit, and heaps of new and exciting ones to discover. The guide gives 
lots of subtle hints. 


The bottom line. The guidelines set out on the back cover of the 
programmer's guide are met and I believe the approach is great. For 
me it is worth it even though it may cost around the $35 mark here. 


Point scoring: out of 10, well, thats is difficult. I still 
consider myself a novice to the ST after 9 months of intensive 
exploration. My score is an 8 only because I have become addicted to 
structured programming and so I was not ‘wrapped with linear 
programming examples. Perhaps with time my opinion may change or 
mellow as I seek bigger and better reference manuals. Whether it 
becomes as famous and noted as the 8 bit books, time will tell. 


Larry O'Keeffe 


CLASSIFIEDS 


FOR SALE 
Software 


Cartridges (each) 
$20.00 - Wizard of War, Computer War. 


Diskettes (each) 
$50.00 - Synfile. 
$30.00 - Pinball Construction Set, Movie Maker. 


Word Processors (each) 
$50.00 - Paperclip, Atariwriter. 


Contact; 
John Latham 
7 Lucas Street, 
BUNDABERG 4670 
Ph. (071) 71-3633 
KKEKKKKK 
Diskettes (each) 
$25.00 - Datestones of Ryn. 
$10.00 - Car Costs. 
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Cassettes (each) 

$30.00 - Atari Mailing List. 

$25.00 - QS Assembler, Nukewar, B-1 Nuclear Bomber, Galaxy. 
$12.00 - Space Chase. 

$10.00 - Crypts of Plumbous. 


Contact; 
Ian Murray 
Ph. Home (02) 662-4110 
Ph. Work (02) 234-1406 
REKKERE 
Diskettes (each) 
ADVENTURES 
$30.00 - Enchanter, Infidel. 
$25.00 - Transylvannia. 
$20.00 - Stonequest. 
$15.00 - Adventure International Tri-pack: Curse of Crowley Manor, 
Escape from Traam, Earthquake San Francisco. 
$10.00 - Blade of Blackpoole. 
ARCADE 
$30.00 - Spy vs Spy. 
$10.00 - Pole Position, Mouseattack, Shamus, Bandits. 
WAR 
$10.00 - Paris in Danger. 


Cassettes (each) 

ARCADE 

$10.00 - Pole Position, Zaxxon. 
$ 5.00 ~ Apple Panic. 

WAR 

$10.00 - Tigers in the Snow. 


All originals with documentation. Prices Negotiable, will consider 
swap. 
Contact; 
Dean Rapp 
10/206 Oberon St 
COOGEE 2034 
Ph. Home (02) 665-2324 
Ph. Work (02) 218-6655 
RREKEKKE 
Cartridges (each) 
$10.00 - Pole Position. 


Diskettes (each) 

$30.00 - Ultima II, Enchanter, Hitchhikers Guide to the Galaxy, 
Infidel. 

$20.00 - Zork I, Zork II, Zork III. 

$10.00 - Conflict 2500. 


Books (each) 

$ 5.00 - Atari Adventures, Atari Basic Programs in Minutes, Dr. 
Wacko's Miracle Guide to Designing and Programming Your Own 
Atari Computer Arcade Game, The Atari Book of Games, Atari 
Stimulating Simulations, Atari Basic. 


All with original documentation. 


Contact; 


Steve Bradbury 


Ph. Home (049) 26-4566 
Ph. Work (049) 75-3183 
KKEKERKK 
ESPE TEE Y KIN 
Antic Magazines - Issues Feb & March 
prices. 
Contact; 


Steve Bradbury 
Ph. Home (049) 26-4566 
Ph. Work (049) 75-3183 


RAKE 


1986. Willing to pay shop 





KAXKX ATART COMPUTER ENTHUSIASTS (NEW SOUTH WALES) *4*4*% 
INFORMATION 1386 

Atari Computer Enthusiasts (N.S.W.) is an independent, non-profit users’ group for owners of ATARI Computers and is loosely 
affiliated with Atari Computer Enthusiasts in the U.S.A.. While ve are recognised by Mobex Pty Ltd, as the official Atari Users’ 
Group in N.S.W. we have no connections with them or the Atari Corporation. Membership fees are currently $20.00 for the first year 
and $15.00 (Reneval) thereafter. Membership includes a 6 issue subscription to INSIDE INFO and a further fee of $10.00 allows 
lifetime access to the group's Bulletin Board service. Unless noted as being copyright, permission is given to reprint articles 
froa INSIDE INFG, making acknowledgement to the source and sending a copy of the publication the article appears in, to the 
editor. Opinions expressed are those of the author and do not necessarily represent the views of A.C.E.(N.5.W.), Advertising rates 
in INSIDE INFO are $50.00 full page, $30.00 half page and $20.00 quarter page. Members’ personal advertisements are free. 


COMMITTEE MEMBERS HOME PHONE NO. COMMITTEE MEMBERS HOME PHONE NQ. 
Colin Grace (President) (02) 337-2697 Larry O'Keeffe (Vice President /Sysop) (02) 529-8249 
Peter Dickeson (Secretary/Treasurer) (02) 80B-3429 lan Murray (Meetings Organiser) (02) 662-4110 
Craig Arasworth (Editor) (02) 918-3814 Jeff Maddock (Assistant Sysop) (02) 368-2990 
Brian Elliot (Librarian) (02) 451-2835 Philip Hayne (Software Exchange) (02) 918-2360 


PAYMENTS, CORRESPONDENCE AND NEWSLETTER EXCHANGE 
All payments may be made at any meeting or by mail. All cheques and Money Orders should be made payable to Atari Computer 
Enthusiasts (N.S.W.). ALl correspondence and Newsletter Exchange should be fowarded to:- 
A.C.E. (N.S.W.) GPO BOX 4514, SYDNEY N.S.W. 2001 
BULLETIN BOARD - Phone (02) 529-2059 & CSACE BBS (02) 529-8249 

Operating hours - 6PM to 9AM Monday to Friday. Full 24 hours on both Saturday and Sunday. 

Sysop: Larry O'Keeffe. Access requires $10.00 lifetime access fee and password from Sysop. "AMODEM’ terminal softvare or 
derivatives is recommended. PUBLIC DOMAIN SOFTWARE ONLY!! 

MEMBERS’ DISCOUNTS 


COMPUTER-1 (5% Discount}:- 200 Alison Road, Randwick. Phone:- (02) 399-1 

HOTLINE BOOKS AND SOFTWARE (10% Discount]}:- 693 George Street, Haymarket, Sydney, Phone:- (02) 212-6077 
COMPUTERWAVE (5% Discount - Cash Only]:- 325 George Street, Sydney. Phone:- (02) 29-1631 
THE COMPUTER SPOT [5% Credit, 10% Cash]:- Shop C4, MLC Centre, Martin Place. Phone:- (02) 235-2971 
COVER CARE (25% off computer dust covers]}:- P.0.Box 719, Chatswood, N.S.W. 2067. Phone:- (02) 498-5631 
ERGONOMIC DESIGNS LTD. (10% off computer desks}:- 414 Stirling Highway, Cottesloe, WA 6011. Phone:- (09) 384-8499 


SOFTWARE EXCHANGE 
A full range of public domain software is available from the Software Exchange for $6.00 per disk. A list of Software Exchange 
disks begins from INSIDE INFO No.26 and updates continue in subsequent issues. 
ARTICLE/PROGRAM SUBMISSION 
Articles for INSIDE INFO should reach the Editor as early as possible, and at least 2 weeks ahead of the release date. Disk 
submissions should use single density DOS 2 format. Modem submissions leave message on the board for the EDITOR. Submissions will 
entitle you to one Software Exchange disk free of charge. 
MEETING DETAILS 
Meetings are held at 6PM on the 2nd floor of the Y.W.C.A building, corner of Wentvorth Avenue and Liverpool Street, Darlinghurst 
2010, 
UPCOMING MEETINGS:- MIONDAYWY OCTOBEFR 123 
MONDAY MNOVEMBEF 10. AGP 
MOMNMDAY DECEMBErFR 8&2. XMAS FPARTY 
RENEWAL DATE 
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Atari Computer Enthusiasts (N.S.W.) 
MEMBERSHIP FORM 


ADDRESS: 














TOWN /SUBURB: 

STATE: POSTCODE: 

PHONES- home ( ) - work ( ) - 
SIGNATURE: AGE: DATE: / / 





Enclosed is (JCash [JCheque [JMoney Order for:- 
($20 joining membership [J$15 membership renewal [JNotice of change of address 


OFFICE USE ONLY: 
Date Processed: Receipt #: LAST ISSUE: 
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